edit1.text:=datetimetostr(now);
edit1.text:=datetostr(date);//只要日期
edit1.text:=timetostr(now);//只要时间
var
datetime:Tdatetime;
begin
datetime:=time();//获取当前时间
label1.caption:=datetostr(datetime)+timetostr(datetime);/日期+时间
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024