procedure TForm4.Timer1Timer(Sender: TObject);
begin
edit2.text:=formatdatetime( 'yyyy年mm月dd日hh点nn分ss秒',now);
end;
delphi 获取当前时间并转化成成字符串

最新推荐文章于 2024-03-20 11:36:26 发布

procedure TForm4.Timer1Timer(Sender: TObject);
begin
edit2.text:=formatdatetime( 'yyyy年mm月dd日hh点nn分ss秒',now);
end;