Wo ist denn dein EnumToString eigentlich her?
Aber am Ende geht das bestimmt auch nur auf
TypInfo.GetEnumName.
Und dieses schaut in die
RTTI, wo es direkt eine Tabelle mit den Namen ausliest
und nicht auch noch nach irgendwelchen Attributen schaut.
Aber im Notfall kannst'e dir das ja noch mit in dein EnumToStr einbauen.
PS: Wo ich immer wieder das Kotzen bekomm, ist sowas.
Zitat von
Unit RTTI:
Delphi-Quellcode:
TRttiEnumerationType = class(TRttiOrdinalType)
private
...
class function GetName<T{: enum}>(AValue: T): string; reintroduce; static;
Eigentlich eine schöne Funktion, aber wer erkennt den Haken?
OK, du könntest die
RTTI manuell umschreiben (diese Tabelle läßt sich ersetzen/überschreiben), aber schön wird das nicht.