Eigene Typen nach Integer casten?

[TheMiller]

Hallo,

ich habe eigene Typen wie den folgenden erstellt:

TPJUpdateEvents = (ueUserlist, ueAufgaben, ueTermine, ueNachrichten); Ich habe i-wo gelesen, dass Delphi bzw. der Compiler dahergeht und der Reihe nach jedem Wert eines Typen einen Integer-Wert beginnend bei 0 zuordnet. An diese Wert würde ich gerne durch einen Cast rankommen.

Mein Ziel ist es, in der Datenbank den Integer-Wert des Typen-Wertes zu speichern und nur im Quelltext die TypenNamen zu nutzen. In der DB sollte für "ueAufgaben" also eine 1 stehen.

Momentan prüfe ich noch mit if-Abfragen und übersetze quasi den Typ in den entsprechenden Wert - das ist nicht gerade eine Vereinfachung.

Danke im Voraus

[s.h.a.r.k]

Ein kleiner Tipp vorweg, nimm doch ein case anstatt der if-Schleifen

Ansonsten kannst du wunderbar mit der Ord()-Funktion arbeiten.

[Bernhard Geyer]

Einfach mit Ord() den Ordinalwert bestimmen

[TheMiller]

Ja super. Die Funktion nutze ich so selten, dass ich garnicht mehr an sie gedacht habe.

Vielen Dank.

[s.h.a.r.k]

Schöner finde ich aber die Methode, die aus dem Wert ueUserlist einen String macht, nur finde ich dieser gerade nicht Somit werden die Werte lesbarer abgespeichert, wie ich finde.

[Bbommel]

Delphi-Quellcode:

function UpdateEventsToString(UpdateEvent:TPJUpdateEvents):string;
begin
  Result:=GetEnumName(TypeInfo(TPJUpdateEvents), Integer(UpdateEvent));
end;

Autor unbekannt - hatte ich auch mal irgendwann hier gefunden.

Bis denn
Bommel

[uligerhardt]

Zitat von s.h.a.r.k:

Ein kleiner Tipp vorweg, nimm doch ein case anstatt der if-Schleifen

Klick

[TheMiller]

Vielen Dank nochmals für die Tipps.

Kann ich auch andersrum casten? Ich bekomme aus der DB den Wert 1 und möchte jetzt das entsprechende "TPJUpdateEvent" bekommen. Gibt's da auch eine Möglichkeit?

Danke

[Bbommel]

Zitat von DJ-SPM:

Kann ich auch andersrum casten?

Klar, einfach myUpdateEvent=TPJUpdateEvents(myIntegerValue); nehmen.

Bis denn
Bommel

[TheMiller]

Perfekt. Vielen Dank