Question

用Delphi如何获取系统当前时间和日期？

Answer 1

用NOW
var
DateTime:TDateTime;
i:string;
begin
DateTime:=now;
i:=DateToStr(DateTime)+' '+TimeToStr (DateTime);
lable1.caption:=i;

Answer 2

var shijian:tdatetime;
var xianshi:string;
begin
shijian:=now;
xianshi:=:=DateToStr(DateTime)+' '+TimeToStr (DateTime);
label1.caption:=xianshi;