关于TTime类型使用出现的问题,请指教,谢谢!

                            
在程序中使用如下语句:   
  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;  
  则可以获得想要的时间格式。  
 

查看回复