RTTI Enum von Propertys?

[Mavarik]

Hallo Zusammen!

Nochmal zum Thema Rtti.

Gibt es eine Möglichkeit für eine Funktion

Delphi-Quellcode:

function GetAllPropertyNames(C : TClass):TList<String>;
var 
   i : integer;
begin
  Result := TList<String>.Create;
  for i:=0 to C.Propertys.count-1 do
    Result.Add(C.Propertys[i].ProperyName);
end;

Grüsse Mavarik

[DeddyH]

Hiermit vielleicht? http://docwiki.embarcadero.com/Libra....GetProperties

[edit] Hihi, Schnapsrunde fällig (2222 Beiträge) [/edit]

[Mavarik]

Zitat von DeddyH:

Hiermit vielleicht? http://docwiki.embarcadero.com/Libra....GetProperties

[edit] Hihi, Schnapsrunde fällig (2222 Beiträge) [/edit]

WOW... 2223 Danke... Die Runde geht auf mich..

Ups so einfach... GetProperties...

Zitat von docwiki:

funktioniert es nur in Typen beschreibenden RTTI-Objekte, die Eigenschaften wie z.B. records, classes und interfaces eigentlich zulassen; für alle anderen Typen gibt diese Methode einfach ein leeres Array zurück

Bedeutet was?

Mavarik

[Der schöne Günther]

Die englische Version ist verständlicher:

Zitat:

Although GetProperties is declared in TRttiType, it only works in RTTI objects describing types that actually allow properties, such as records, classes, and interfaces; for all other types, this method simply returns an empty array.

Soll heißen:

• Es können eh nur Interfaces, Records und Klassen Properties haben
• Wenn du einen Typ reinsteckst der sowieso keine Properties haben kann (z.B. einen String) dann bekommst du ein leeres Array zurück

Ich meine, was hätte sonst passieren können. Vielleicht hätte die Methode ja auch eine Exception werfen können wenn man was reinsteckt wo im Vorhinein klar ist dass es keine Properties haben kann.

[himitsu]

Da fühlen sich die armen Class/Record-Helpher aber voll verarscht.


Ich hab vorhin einen Text mit der Nummer 17777 im Programm angelegt und keiner wollte feiern. (hatte aber auch erst bei 17000 angefangen)

[Der schöne Günther]

Guter Einwand.

Delphi-Quellcode:

program Project16;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils, System.Rtti;

type
   TObjectHelper = class helper for TObject
      protected
         function getValue(): Integer;
      public property
         Value: Integer read getValue;
   end;


{ TObjectHelper }

function TObjectHelper.getValue(): Integer;
begin
   Result := 42;
end;

procedure justRttiThings();
var
   context: TRttiContext;
   rttiType: TRttiType;
   properties: TArray<TRttiProperty>;
   propertyIterator: TRttiProperty;
begin
   context := TRttiContext.Create();
   properties := context.GetType( TypeInfo(TObjectHelper)).GetProperties();

   for propertyIterator in properties do
      WriteLn(propertyIterator.Name);
end;

begin
  try
   justRttiThings();
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  readln;
end.

ergibt

Code:

Value
RefCount

Welche Magie steckt hier dahinter?

[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;