Automatischer Setter/Getter für Aufzählungs-Variablen via RTTI?

[freejay]

Hallo zusammen,

wenn ich ein String-Property

Code:

MySet

habe und ein zugehöriges Feld

Code:

FMySet

vom Typ

Code:

TMySet = (Hund,Katze,Maus)

dann muss ich manuell einen GETter und einen SETter dafür schreiben. Und sobald neue Ausprägunge dazu kommen (z.B. Giraffe, Känguru), dann muss ich jedesmal auch die Get- und Set-Routinen erweitern.

Und das ist eine ziemlich lästige aber/und primitive Aufgabe, da es dabei eigentlich immer nur um ein

Code:

else if Value = "Katze" then
  FMySet := Katze
else...

geht.

Müsste es nicht möglich sein, mit Hilfe der RTTI universelle Getter und Setter für Aufzählungstypen zu entwickeln, die die verfügbaren Werte als String ermitteln können und daher in einer Schleife für beliebige Aufzählungen funktionieren würden?

Ich habe mich bislang nicht viel mit der RTTI beschäftigt und hätte - bevor ich mich da voll reinhänge - gerne von Erfahreneren eine Einschätzung dazu.

Danke im Voraus & sonnige Grüße aus Nürnberg

Freejay