procedure TForm4.Timer1Timer(Sender: TObject);
begin
edit2.text:=formatdatetime( 'yyyy年mm月dd日hh点nn分ss秒',now);
end;
delphi 获取当前时间并转化成成字符串
最新推荐文章于 2024-01-29 10:03:21 发布
procedure TForm4.Timer1Timer(Sender: TObject);
begin
edit2.text:=formatdatetime( 'yyyy年mm月dd日hh点nn分ss秒',now);
end;