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

* Fix currency

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-02-14 20:40:28 +01:00
parent 44f9c22f18
commit 614a6a6627
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1328,7 +1328,11 @@ end;
function TValue.AsExtended: Extended; function TValue.AsExtended: Extended;
begin begin
if {$IFDEF FPC_DOTTEDUNITS}JSApi.{$ENDIF}JS.isNumber(GetData) then if {$IFDEF FPC_DOTTEDUNITS}JSApi.{$ENDIF}JS.isNumber(GetData) then
Result:=Double(GetData) begin
Result:=Double(GetData);
if TypeInfo=System.TypeInfo(Currency) then
Result:=Result/10000;
end
else else
raise EInvalidCast.Create(SErrInvalidTypecast); raise EInvalidCast.Create(SErrInvalidTypecast);
end; end;