delphi如何编写一个显示日期时间的程序？

来源：百度知道 编辑：UC知道 时间：2024/09/28 11:11:21
编写一个程序显示当前的日期时间
日期显示以 xx年xx月xx日xx时xx分xx秒 的格式

...
不会用控件的话有别的方法吗？

代码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Text:=FormatDateTime('yyyy年mm月dd日 hh时nn分ss秒',now());
end;

新建一个application
在窗体是放两个控件:
Label1: TLabel;
Timer1: TTimer;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval :=1000; //1000是指1000毫秒
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption := FormatDateTime('YYYY年MM月DD日HH时MM分SS秒',now());
end;
适当调整窗体大小,以及label背景等即可达到你的目的

FormatDateTime('yyyy年mm月dd日 hh时nn分ss秒',now())
正解，就一函数的事情