Browse Source

* Disposed is protected, does not appear by default in RTTI

Michaël Van Canneyt 1 year ago
parent
commit
b3b4343e6b
1 changed files with 2 additions and 1 deletions
  1. 2 1
      rtl/inc/objpash.inc

+ 2 - 1
rtl/inc/objpash.inc

@@ -250,6 +250,7 @@
        {$ENDIF}
        protected
           function GetDisposed : Boolean; inline;
+          Property Disposed : Boolean Read GetDisposed;
        public
           { please don't change the order of virtual methods, because
             their vmt offsets are used by some assembler code which uses
@@ -304,7 +305,7 @@
           class function QualifiedClassName: RTLString;
           Procedure DisposeOf; inline;
           Procedure CheckDisposed; inline;
-          Property Disposed : Boolean Read GetDisposed;
+          
           function Equals(Obj: TObject) : boolean;virtual;
           function GetHashCode: PtrInt;virtual;
           function ToString: RTLString; virtual;