Parcourir la source

Merge branch 'develop'

Exilon il y a 4 ans
Parent
commit
0332033131
2 fichiers modifiés avec 3 ajouts et 4 suppressions
  1. 2 3
      Quick.RTTI.Utils.pas
  2. 1 1
      QuickLib.inc

+ 2 - 3
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 @@ var
   rtype : TRttiType;
   rmethod : TRttiMethod;
   rinstype: TRttiInstanceType;
-  value : TValue;
 begin
   rtype := fCtx.GetType(aObject.ClassInfo);
   for rmethod in rtype.GetMethods do
@@ -151,7 +150,7 @@ begin
     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;

+ 1 - 1
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}