转自:http://blog.sina.com.cn/s/blog_491e726f0100afm5.html
获得系统当前时间
本例中主要应用了FormatDateTime函数,此函数主要用于将日期时间格式化为指定的字符串。利用该函数可以输出许多形式的时间格式。
程序运行结果如图6.1所示
主要代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := FormatDateTime('hh:nn:ss',Now());
end;
获得系统当前日期
当用户单击窗体中的按钮时,程序会利用DateTime