RTTI Enum von Propertys?

[Sir Rufo]

Wo soll denn da Magie sein? Das ist doch so wie erwartet, oder etwa nicht?

Auf jeden Fall sind alle Informationen vorhanden um das auflösen zu können.

TObjectHelper ist verbunden mit TObject und darum werden alle Eigenschaften von TObject und TObjectHelper aufgelistet.

Also ich hätte das jetzt auch so erwartet ...

[Der schöne Günther]

1. Ich bin positiv überrascht dass die vom Helfer eingeführte Property erfasst werden kann
2. Ich bin erstaunt überrascht wo auf einmal RefCount herkommt. Von TObject schonmal nicht

[Sir Rufo]

Das ist definitiv seltsam und da scheint auch irgendwas nicht zu passen

Delphi-Quellcode:

TObject = class
  public
  ...
{$IFDEF AUTOREFCOUNT}
  protected
{$ENDIF}
    destructor Destroy; virtual;

{$IFDEF CPP_ABI_SUPPORT}
    procedure CPP_ABI_1; virtual;
    procedure CPP_ABI_2; virtual;
    procedure CPP_ABI_3; virtual;
{$ENDIF !CPP_ABI_SUPPORT}

  protected
    function GetDisposed: Boolean; inline;
    procedure CheckDisposed; {$IFNDEF AUTOREFCOUNT} inline; {$ENDIF}

{$IFDEF AUTOREFCOUNT}
  private const
    objDestroyingFlag = Integer($80000000);
    objDisposedFlag = Integer($40000000);
  protected
    [Volatile] FRefCount: Integer;
    class procedure __MarkDestroying(const Obj); static; inline;
    class function __SetDisposed(const Obj): Boolean; static; inline;
  public
    property RefCount: Integer read FRefCount;
{$ENDIF}
    property Disposed: Boolean read GetDisposed;
  end;

Wenn man nur TObject abfragt, dann wird keine Eigenschaft gefunden, dabei hätte ich noch Disposed erwartet.
Ja und das RefCount kommt irgendwie da durch den helper rein (und soll angeblich public sein).

[Stevie]

Führ doch mal das hier aus, dann siehste, wo das her kommt

Delphi-Quellcode:

rttiType := context.GetType(TypeInfo(TObjectHelper));
while Assigned(rttiType) do
begin
  Writeln(rttiType.ToString);
  rttiType := rttiType.BaseType;
end;