Browse Source

[commons] fix for older delphi versions

Exilon 4 năm trước cách đây
mục cha
commit
35ff11ae33
1 tập tin đã thay đổi với 5 bổ sung0 xóa
  1. 5 0
      Quick.Commons.pas

+ 5 - 0
Quick.Commons.pas

@@ -2297,7 +2297,11 @@ end;
 
 function TDateTimeHelper.ToMilliseconds : Int64;
 begin
+  {$IFDEF DELPHIRX104_ANDUP}
   Result := System.DateUtils.DateTimeToMilliseconds(Self);
+  {$ELSE}
+  Result := System.DateUtils.MilliSecondOf(Self);
+  {$ENDIF}
 end;
 
 function TDateTimeHelper.ToString : string;
@@ -2360,3 +2364,4 @@ initialization
 end.
 
 
+