@Himitsu:
Das ist der Grund weshalb bei der Geschichte das Zweifeln anfängt.
Da ist eine Variable vom Typ T. Bisher bin ich (in Analogie zu C#) davon ausgegangen, dass die Variable wirklich vom Typ T ist - Der "else" (bzw. "default:") würde von einem Quellcodeanalyzer bemängelt werden, weil er nie ausgeführt werden könnte.
Bedeutet das nun, dass eine Methode, der ein T-Parameter übergeben wird, nun überprüfen muss, ob der Parameter wirklich ein T ist?
Der GetEnumName funktioniert leider in meinem Delphi nicht, (eben weil keine
RTTI für den Enum-Typ vorhanden ist).
@ Namenloser:
Roter Kasten?
@Furtbichler:
Plan B funktioniert (logisch).
Der Grund für die Numerierung ist der, dass die Klassen, in denen der Typ enthalten ist in eine Datenbank persistiert werden und es denkbar ist, dass es eine Erweiterung gibt. Andererseits möchte ich eine Kontrolle über die Reihenfolge der Werte behalten.
Aussehen tut es jetzt so:
Delphi-Quellcode:
g_EreignisTypNummer:
Array[TEreignisTyp]
of Integer = (1,2,3,4,10,11,12,13,14);
g_EreignisTypName:
Array[TEreignisTyp]
of String = (...);
...
for ereignis := Low(TEreignisTyp)
to High(TEreignisTyp)
do begin
ereignisNr := g_EreignisTypNummer[ereignis];
TuIrgendwasMit(ereignis, ereignisNr, EreignisTypName[ereignis]);
end;
...
query.Parameters.ParamValues['
EreignisTyp']:= g_EreignisTypNummer[m_EreignisTyp];
Nochmals vielen Dank