Răsfoiți Sursa

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

Michaël Van Canneyt 1 an în urmă
părinte
comite
b3b4343e6b
1 a modificat fișierele cu 2 adăugiri și 1 ștergeri
  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;