Explorar o código

[commons] fix for older delphi versions

Exilon %!s(int64=3) %!d(string=hai) anos
pai
achega
35ff11ae33
Modificáronse 1 ficheiros con 5 adicións e 0 borrados
  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.
 
 
+