paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-09 22:37:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix currency treatment

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-15 15:06:40 +01:00
parent 827b95af79
commit e06f74d512
1 changed files with 2 additions and 1 deletions

3
packages/rtl/src/rtti.pas
View File

@ -1334,8 +1334,9 @@ end;
function TValue.AsCurrency: Currency; function TValue.AsCurrency: Currency;
begin begin
// The actual data is not multiplied by 10000. The
if {$IFDEF FPC_DOTTEDUNITS}JSApi.{$ENDIF}JS.isNumber(GetData) then if {$IFDEF FPC_DOTTEDUNITS}JSApi.{$ENDIF}JS.isNumber(GetData) then
Result:=Currency(GetData) Result:=Currency(GetData)/10000
else else
raise EInvalidCast.Create(SErrInvalidTypecast); raise EInvalidCast.Create(SErrInvalidTypecast);
end; end;