paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-30 15:40:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add convenience methods for TrttiMethod.invoke()

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-06-27 13:34:02 +02:00
parent 57e4a2e281
commit 6099074969
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packages/rtl/rtti.pas
View File

@ -216,6 +216,8 @@ type
public public
function GetParameters: TRttiParameterArray; function GetParameters: TRttiParameterArray;
function Invoke(const Instance: TValue; const Args: array of TValue): TValue; function Invoke(const Instance: TValue; const Args: array of TValue): TValue;
function Invoke(const Instance: TObject; const Args: array of TValue): TValue;
function Invoke(const aClass: TClass; const Args: array of TValue): TValue;
property IsAsyncCall: Boolean read GetIsAsyncCall; property IsAsyncCall: Boolean read GetIsAsyncCall;
property IsClassMethod: Boolean read GetIsClassMethod; property IsClassMethod: Boolean read GetIsClassMethod;
@ -1894,6 +1896,26 @@ begin
Result.SetData(TJSFunction(TJSObject(Instance.AsJSValue)[Name]).apply(TJSObject(Instance.AsJSValue), AArgs)); Result.SetData(TJSFunction(TJSObject(Instance.AsJSValue)[Name]).apply(TJSObject(Instance.AsJSValue), AArgs));
end; end;
function TRttiMethod.Invoke(const Instance: TObject; const Args: array of TValue): TValue;
var
v : TValue;
begin
TValue.make(Instance,Instance.ClassInfo,v);
Result:=Invoke(v,Args);
end;
function TRttiMethod.Invoke(const aClass: TClass; const Args: array of TValue
): TValue;
var
v : TValue;
begin
TValue.make(aClass,aClass.ClassInfo,v);
Result:=Invoke(V,Args);
end;
{ TRttiProperty } { TRttiProperty }
constructor TRttiProperty.Create(AParent: TRttiType; ATypeInfo: TTypeMember); constructor TRttiProperty.Create(AParent: TRttiType; ATypeInfo: TTypeMember);