diff --git a/Quick.RTTI.Utils.pas b/Quick.RTTI.Utils.pas index e180404..ac6c618 100644 --- a/Quick.RTTI.Utils.pas +++ b/Quick.RTTI.Utils.pas @@ -7,7 +7,7 @@ Author : Kike Pérez Version : 1.4 Created : 09/03/2018 - Modified : 14/07/2020 + Modified : 05/11/2020 This file is part of QuickLib: https://github.com/exilon/QuickLib @@ -143,7 +143,6 @@ class function TRTTI.CallMethod(aObject : TObject; const aMethodName : string; a rtype : TRttiType; rmethod : TRttiMethod; rinstype: TRttiInstanceType; - value : TValue; begin rtype := fCtx.GetType(aObject.ClassInfo); for rmethod in rtype.GetMethods do @@ -151,7 +150,7 @@ class function TRTTI.CallMethod(aObject : TObject; const aMethodName : string; a if CompareText(rmethod.Name,aMethodName) = 0 then begin rinstype := rtype.AsInstance; - value := rmethod.Invoke(rinstype.MetaclassType,aParams); + Result := rmethod.Invoke(rinstype.MetaclassType,aParams); end; end; diff --git a/QuickLib.inc b/QuickLib.inc index b641bee..00679e5 100644 --- a/QuickLib.inc +++ b/QuickLib.inc @@ -131,7 +131,7 @@ {$if CompilerVersion >= 34.0} //Delphi RX10.4 Sydney {$define DELPHIRX104_UP} {$define DELPHISYDNEY_UP} - {$if defined(ANDROID) OR defined(LINUX) OR defined(IOS)} + {$if defined(ANDROID) OR defined(IOS)} {$define NEXTGEN} //compatibility with older delphis {$endif} {$ifend}