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.