Annotationen auslesen

[amoibos]

Im Buch/Blog von Nick Hodges werden Attribute als Meta-Daten für RTTI genutzt. Daraus wollte ich Annotationen ableiten, d.h. in meinem Beispiel übergebe man ein Objekt, filtert die Methoden und extrahiert den angegebenen Wert. Nur irgendwie scheint er nichts finden zu wollen. Ein wenig Code zur Veranschaulichung:

Delphi-Quellcode:

blublub(Instance : TObject);
var
  Context: TRTTIContext; 
  ObjectType: TRttiType;
  Methods: TArray<TRttiMethod>;
  Attribute: TCustomAttribute;
  i: integer; 
  ModuleState: TScheduleStates;  //Enum
begin
  ObjectType := Context.getType(Instance.ClassType);
  Methods := ObjectType.GetMethods;
  for i := Low(Methods) to High(Methods) do
  begin
    for Attribute in Methods[i].GetAttributes do
    begin
      if not (Attribute is TBaseState) then continue;
      ModuleState := TBaseState(Attribute).State;
[...]

Als Instance wird das Objekt übergeben und die unterschiedlichen Klassen werden von TBaseState abgeleitet, welche zus. noch ein Attribut ModuleState besitzen.
In der Praxis iteriert er nur über i, ins innere der zweiten For-Schleife kommt er gar nicht, jemand eine Idee woran das liegt? Leider ist der Kram im Debugger äußerst schwer zu lesen um daraus was abzuleiten.

[Der schöne Günther]

Ohne es ausprobiert zu haben, aber: Ja, TRttiContext ist ein Record. Doch irgendeinen Sinn wird TRttiContext.Create() schon haben. Ich benutze es jedenfalls immer ohne seinen Sinn zu hinterfragen...

[Uwe Raabe]

Zitat von Der schöne Günther:

Ohne es ausprobiert zu haben, aber: Ja, TRttiContext ist ein Record. Doch irgendeinen Sinn wird TRttiContext.Create() schon haben. Ich benutze es jedenfalls immer ohne seinen Sinn zu hinterfragen...

Auch ein Record muss erstmal initialisiert werden. Das Create ist also unerlässlich. Auf das Free könnte man verzichten, aber schaden tut es auch nicht.

[amoibos]

Bei Create müsste man dann auch irgendwann einen Typ angeben sonst läuft der Typ-Selektor doch ins Leere?
(Soweit ich das verstanden haben, wird das mittels Serialisierung des Objektes gelöst, deshalb brauchts auch einen Typen.)
Das wird bei mir über Context.GetType gemacht. In seinen Beispielen hat er nie ein Create gebraucht.

[Der schöne Günther]

Kannst du denn einmal ein lauffähiges Minimalbeispiel posten? Weil eigentlich ist es doch nur halb so wild und sollte eigentlich klappen so wie du es runterschreibst...

[Uwe Raabe]

Zitat von amoibos:

Bei Create müsste man dann auch irgendwann einen Typ angeben sonst läuft der Typ-Selektor doch ins Leere?
(Soweit ich das verstanden haben, wird das mittels Serialisierung des Objektes gelöst, deshalb brauchts auch einen Typen.)
Das wird bei mir über Context.GetType gemacht. In seinen Beispielen hat er nie ein Create gebraucht.

Du bist schon drei Schritte zu weit. Was hier fehlt ist ein:

Context := TRTTIContext.Create;

[amoibos]

Gut danke, ich werds morgen mal ausprobieren. Aber ich kann beschwören das alle Beispiele, und davon gibts im Buch viele, ohne Create auskommen. Da muss sich was geändert haben.

[Uwe Raabe]

Zitat von amoibos:

Gut danke, ich werds morgen mal ausprobieren. Aber ich kann beschwören das alle Beispiele, und davon gibts im Buch viele, ohne Create auskommen. Da muss sich was geändert haben.

Glaube ich kaum. Aus "Coding in Delphi" (PDF vom Juni 2014) am Ende von Kapitel 9.3:

[alda]

Ich würde Dir die RTTI Helper aus DSharp nahelegen, die erleichtern Dir den Umgang mit der RTTI und gerade Attributen/Annotations um ein vielfaches: Klick mich
Da musst Du dich auch nicht um den Context kümmern - das machen die Helper alle schon selbst.

Speziell zum Ermitteln der Attribute:

Delphi-Quellcode:

 TRttiObjectHelper = class helper for TRttiObject
  public
    ....
    function TryGetCustomAttribute<T: TCustomAttribute>(out AAttribute: T): Boolean;
  end;