Sfoglia il codice sorgente

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

Michaël Van Canneyt 1 anno fa
parent
commit
b3b4343e6b
1 ha cambiato i file con 2 aggiunte e 1 eliminazioni
  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;