paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-17 14:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: note about currency

Browse Source
This commit is contained in:
mattias 2018-04-22 11:39:32 +00:00
parent a95188db36
commit 3f0b7322ad
1 changed files with 4 additions and 0 deletions

4
packages/rtl/sysutils.pas
View File

@ -248,6 +248,10 @@ function IntToHex(Value: NativeInt; Digits: integer): string;
*****************************************************************************}
const
// Note: Currency is internally a double, multiplied by 10000 and truncated.
// 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;