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

* Transform currency

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-15 15:06:21 +01:00
parent c0d00ca638
commit 827b95af79
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/rtl/src/typinfo.pas
View File

@ -1072,6 +1072,15 @@ begin
SetJSValueProp(Instance,PropInfo,Value); SetJSValueProp(Instance,PropInfo,Value);
end; end;
Function TransFormRawValue(aValue : JSValue; const PropInfo :TTypeInfo) : JSValue;
begin
if isNumber(aValue) and (PropInfo=System.TypeInfo(Currency)) then
Result:=Double(aValue)*10000
else
Result:=aValue;
end;
procedure SetJSValueProp(Instance: TJSObject; procedure SetJSValueProp(Instance: TJSObject;
const PropInfo: TTypeMemberProperty; Value: JSValue); const PropInfo: TTypeMemberProperty; Value: JSValue);
type type
@ -1079,18 +1088,20 @@ type
TSetterWithIndex = procedure(Index, Value: JSValue) of object; TSetterWithIndex = procedure(Index, Value: JSValue) of object;
var var
sk: TSetterKind; sk: TSetterKind;
lValue : JSValue;
begin begin
lValue:=TransFormRawValue(Value,PropInfo.TypeInfo);
sk:=GetPropSetterKind(PropInfo); sk:=GetPropSetterKind(PropInfo);
case sk of case sk of
skNone: skNone:
raise EPropertyError.CreateFmt(SCantWritePropertyS, [PropInfo.Name]); raise EPropertyError.CreateFmt(SCantWritePropertyS, [PropInfo.Name]);
skField: skField:
Instance[PropInfo.Setter]:=Value; Instance[PropInfo.Setter]:=lValue;
skProcedure: skProcedure:
if (pfHasIndex and PropInfo.Flags)>0 then if (pfHasIndex and PropInfo.Flags)>0 then
TSetterWithIndex(Instance[PropInfo.Setter])(PropInfo.Index,Value) TSetterWithIndex(Instance[PropInfo.Setter])(PropInfo.Index,lValue)
else else
TSetter(Instance[PropInfo.Setter])(Value); TSetter(Instance[PropInfo.Setter])(lValue);
skProcedureWithParams: skProcedureWithParams:
raise EPropertyError.CreateFmt(SIndexedPropertyNeedsParams, [PropInfo.Name]); raise EPropertyError.CreateFmt(SIndexedPropertyNeedsParams, [PropInfo.Name]);
end; end;