@@ -88,6 +88,7 @@ var
rmethod: TRttiMethod;
rinstype: TRttiInstanceType;
begin
+ Result := CreateInstance<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).Free;
end;
SetLength(FQueue,0);