[RTTI] Unterstützung von Attributen für Enumeration-Werte

[s.h.a.r.k]

Guten Abend,

habe heute in VB.Net eine Klasse geschrieben, die mir einen Enum-Wert in einen String umwandelt und dabei prüft, ob der Enum-Wert ein String-Repräsentatins-Attribut hat. In so fern dieses Attribut vorhanden ist, so wird die angegebene String-Representation des Enum-Wertes ausgegeben, sonst direkt EnumValue.ToString() aufgerufen. Folgendes soll zeigen, was ich mein:

Delphi-Quellcode:

MyEnum = (
  [StringRepresentation('Test')]
  meOne,
  [StringRepresentation('Welcome!')]
  meTwo,
  meThree
);

Writeln( EnumToString<MyEnum>(meOne) ); // Liefert: Test
Writeln( EnumToString<MyEnum>(meTwo) ); // Liefert: Welcome!
Writeln( EnumToString<MyEnum>(meThree) ); // Liefert: meThree

Hey, jetzt dachte ich mir, ich code das mal in Delphi nach, da das sicherlich praktisch ist, aber Fehlanzeige. Habe bisher leider keine Möglichkeit gefunden dies umzusetzen. Stattdessen habe ich ein paar Threads in der Form von dem hier gefunden. Nun ists aber so, dass in der Zwischenzeit Delphi XE und XE2 raus gekommen sind und dieses Feature evtl. nachgeliefert wurde. Wollte daher mal nachfragen, ob dahingehend jemand weiß, ob ja oder nein?!

PS: Nein, ich bin definitiv nicht auf der Suche nach einer alternativen Lösung!

[Stevie]

Nein, gibt's nicht.

[s.h.a.r.k]

*Grml* Sowas nervt mich dann doch wieder etwas... Warum eigentlich nicht? Die Exe ist doch eh schon ausreichend groß. Ein MB mehr oder weniger würde dann doch auch keine Rolle mehr spielen. Irgendwie inkonsequent alles... Schade drum...

Danke jedenfalls für die Antwort

[himitsu]

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.

[s.h.a.r.k]

EnumToString ist eine imaginäre Methode. Ich habe mir schon einen generischen Enum-Helper geschrieben, der, soweit ich das noch weiß, auf GetEnumName aus der TypInfo basiert. Aber ich hätte diese Methode sehr gerne um die besagte Funktionalität erweitert. Daher habe ich keinen Code dazu gepostet, sondern nur die Idee skizziert.

Und das mit dem selbst dazu coden will ich eher weniger. Zum einen muss ich zugeben, dass ich mich bei sowas nicht sonderlich gut auskenne und zum anderen mag ich manche "Hacks" nicht unbedingt. Nutze dann doch ganz gerne die Standardfunktionalitäten Und da scheint es leider keinen direkten Weg zu geben.

Wo soll bei der Methode der Haken liegen?

[Stevie]

Dass es keinen Type constraint auf enum gibt (durch den inline comment angedeutet) und das Ding bei T von einem Nicht Enum Type auseinander fliegt.

[s.h.a.r.k]

Zitat von Stevie:

Dass es keinen Type constraint auf enum gibt (durch den inline comment angedeutet) und das Ding bei T von einem Nicht Enum Type auseinander fliegt.

Jo, klar. Es wird eine Exception geworfen, aber immerhin eine sinnvolle Bleibt dann mal zu hoffen, dass sprachlich einfach mal nachgebessert wird.