Quellcode durchsuchen

Removed ifdef DisposeOf and added default Result for createinstance, both raise warnings in Delphi 12. The former's function is now depricated and the latter case was likely masked in previous compiler versions.

RyanTMontoya vor 1 Jahr
Ursprung
Commit
47bacafa82
2 geänderte Dateien mit 2 neuen und 1 gelöschten Zeilen
  1. 1 0
      Quick.RTTI.Utils.pas
  2. 1 1
      Quick.Threads.pas

+ 1 - 0
Quick.RTTI.Utils.pas

@@ -88,6 +88,7 @@ var
   rmethod: TRttiMethod;
   rinstype: TRttiInstanceType;
 begin
+  Result := CreateInstance<T>([]);
   rtype := fCtx.GetType(TypeInfo(T));
   for rmethod in rtype.GetMethods do
   begin

+ 1 - 1
Quick.Threads.pas

@@ -685,7 +685,7 @@ begin
   try
     for obj in FQueue do
     begin
-      if TypeInfo(T) = TypeInfo(TObject) then PObject(@obj){$IFNDEF FPC}.DisposeOf;{$ELSE}.Free;{$ENDIF}
+      if TypeInfo(T) = TypeInfo(TObject) then PObject(@obj).Free;
     end;
 
     SetLength(FQueue,0);