|
@@ -1017,12 +1017,20 @@
|
|
|
|
|
|
function TObject.IsRefCounted: Boolean;
|
|
function TObject.IsRefCounted: Boolean;
|
|
begin
|
|
begin
|
|
|
|
+ {$ifdef VER2_6}
|
|
|
|
+ Result := False;
|
|
|
|
+ {$else}
|
|
Result := PVmt(Self.ClassType)^.vRefCountOfs > 0;
|
|
Result := PVmt(Self.ClassType)^.vRefCountOfs > 0;
|
|
|
|
+ {$endif}
|
|
end;
|
|
end;
|
|
|
|
|
|
function TObject.RefCountOffset: LongInt;
|
|
function TObject.RefCountOffset: LongInt;
|
|
begin
|
|
begin
|
|
|
|
+ {$ifdef VER2_6}
|
|
|
|
+ Result := 0;
|
|
|
|
+ {$else}
|
|
Result := PVmt(Self.ClassType)^.vRefCountOfs;
|
|
Result := PVmt(Self.ClassType)^.vRefCountOfs;
|
|
|
|
+ {$endif}
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|