Browse Source

[commons] fix for older delphi versions

Exilon 3 years ago
parent
commit
35ff11ae33
1 changed files with 5 additions and 0 deletions
  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.
 
 
+