Selaa lähdekoodia

rtl: fixed Min/MaxCurrency

mattias 6 vuotta sitten
vanhempi
commit
ebdaed7149
1 muutettua tiedostoa jossa 2 lisäystä ja 2 poistoa
  1. 2 2
      packages/rtl/sysutils.pas

+ 2 - 2
packages/rtl/sysutils.pas

@@ -264,8 +264,8 @@ const
   // The below values are the safe limits, within every step exists.
   // Since currency is a double it can take much larger values, but the result
   // may differ from Delphi/FPC
-  MaxCurrency: Currency =  450359962737.0495; // fpc: 922337203685477.5807;
-  MinCurrency: Currency = -450359962737.0496; // fpc: -922337203685477.5808;
+  MaxCurrency: Currency =  900719925474.0991; // fpc: 922337203685477.5807;
+  MinCurrency: Currency = -900719925474.0991; // fpc: -922337203685477.5808;
 
 Type
   TFloatFormat = (ffFixed,ffGeneral,ffExponent,ffNumber,ffCurrency);