在程序中使用如下语句:
var
t: TTime;
begin
t := Time;
edit1.text := DateTimeToStr(t);
end;
为什么edit1中显示的内容是:1899-12-30 23:51:54
TTime和TDateTime是等同的吧?
而使用如下语句:
var
t: TTime;
hour, min, sec, milsec: word;
begin
DecodeTime(t,hour,min,sec,milsec);
edit1.text := IntToStr(hour)+':'+IntToStr(min);
end;
则可以获得想要的时间格式。