Question

在delphi中，如何将日期型转换成字符串？

Answer 1

edit1.text:=datetimetostr(now);
edit1.text:=datetostr(date);//只要日期
edit1.text:=timetostr(now);//只要时间

Answer 2

var
datetime:Tdatetime;
begin
datetime:=time();//获取当前时间
label1.caption:=datetostr(datetime)+timetostr(datetime);/日期+时间
end;