剛纔真正明白了Delphi中的TDateTime類型,實際上爲一個浮點數,因此TDateTime類型的兩個變量可以進行浮點數的大部分操作,對於小數部分可以使用minuteof輸出它的分鐘數,負小數取補後轉化爲分鐘數。並且可以通過TDateTimeToStr,StrToDateTime可以方便與string類型轉換,通過FormatDateTime方便的輸出想要格式的日期,如:FormatDateTime('yyyy-mm-dd', OriTime);
if (IsTimeOut or (PatTime - LastTime >= 1) or ((PatTime > LastTime) and (Minuteof(PatTime - LastTime ) >= 40))) then begin
end ;
另外Delphi中的記錄型要放在鏈表中必須使用指針(其它語言也都是鏈表中放指針)例子如下: