Преглед на файлове

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 преди 1 година
родител
ревизия
47bacafa82
променени са 2 файла, в които са добавени 2 реда и са изтрити 1 реда
  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);