Warning Fixes for Delphi 12
@@ -88,6 +88,7 @@ var
rmethod: TRttiMethod;
rinstype: TRttiInstanceType;
begin
+ Result := Default(T);
rtype := fCtx.GetType(TypeInfo(T));
for rmethod in rtype.GetMethods do
@@ -685,7 +685,7 @@ begin
try
for obj in FQueue do
- if TypeInfo(T) = TypeInfo(TObject) then PObject(@obj){$IFNDEF FPC}.DisposeOf;{$ELSE}.Free;{$ENDIF}
+ if TypeInfo(T) = TypeInfo(TObject) then PObject(@obj){$ifndef FPC}{$IFDEF DELPHIRX12_UP}.Free{$ELSE}.DisposeOf{$ENDIF}{$ELSE}.Free{$ENDIF};
end;
SetLength(FQueue,0);