|
@@ -7,7 +7,7 @@
|
|
Author : Kike Pérez
|
|
Author : Kike Pérez
|
|
Version : 1.4
|
|
Version : 1.4
|
|
Created : 09/03/2018
|
|
Created : 09/03/2018
|
|
- Modified : 14/07/2020
|
|
|
|
|
|
+ Modified : 05/11/2020
|
|
|
|
|
|
This file is part of QuickLib: https://github.com/exilon/QuickLib
|
|
This file is part of QuickLib: https://github.com/exilon/QuickLib
|
|
|
|
|
|
@@ -143,7 +143,6 @@ var
|
|
rtype : TRttiType;
|
|
rtype : TRttiType;
|
|
rmethod : TRttiMethod;
|
|
rmethod : TRttiMethod;
|
|
rinstype: TRttiInstanceType;
|
|
rinstype: TRttiInstanceType;
|
|
- value : TValue;
|
|
|
|
begin
|
|
begin
|
|
rtype := fCtx.GetType(aObject.ClassInfo);
|
|
rtype := fCtx.GetType(aObject.ClassInfo);
|
|
for rmethod in rtype.GetMethods do
|
|
for rmethod in rtype.GetMethods do
|
|
@@ -151,7 +150,7 @@ begin
|
|
if CompareText(rmethod.Name,aMethodName) = 0 then
|
|
if CompareText(rmethod.Name,aMethodName) = 0 then
|
|
begin
|
|
begin
|
|
rinstype := rtype.AsInstance;
|
|
rinstype := rtype.AsInstance;
|
|
- value := rmethod.Invoke(rinstype.MetaclassType,aParams);
|
|
|
|
|
|
+ Result := rmethod.Invoke(rinstype.MetaclassType,aParams);
|
|
end;
|
|
end;
|
|
|
|
|
|
end;
|
|
end;
|