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

* Added JSValueArrayOf

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-14 22:26:23 +01:00
parent 276d288ca0
commit c0a7e45415
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/rtl/js.pas
View File

@ -962,6 +962,7 @@ var
// JSExceptValue can be used in catch blocks to access the JS throw value
JSExceptValue: JSValue; external name '$e';
Function JSValueArrayOf(Args : Array of const) : TJSValueDynArray;
function new(aElements: TJSValueDynArray) : TJSObject; overload;
function JSDelete(const Obj: JSValue; const PropName: string): boolean; assembler; overload;
@ -1016,6 +1017,18 @@ Const
implementation
Function JSValueArrayOf(Args : Array of const) : TJSValueDynArray;
var
I : Integer;
begin
SetLength(Result,Length(Args));
for I:=0 to Length(Args)-1 do
Result[i]:=Args[i].VJSValue
end;
function new(aElements: TJSValueDynArray): TJSObject;
function toString(I : Integer): string; external name 'String';