Eigene Typen nach Integer casten?

[TheMiller]

Hallo,

ich habe eigene Typen wie den folgenden erstellt:

Delphi-Quellcode:

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 :wall: 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:

Zitat von s.h.a.r.k

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

Klick :mrgreen:

[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:

Zitat von DJ-SPM

Kann ich auch andersrum casten?

Klar, einfach

Delphi-Quellcode:

myUpdateEvent=TPJUpdateEvents(myIntegerValue);

nehmen.

Bis denn
Bommel

[TheMiller]

Perfekt. Vielen Dank

[generic]

Zitat:

Zitat von s.h.a.r.k

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

http://if-schleife.de/

[uligerhardt]

Zitat:

Zitat von generic

Zitat:

Zitat von s.h.a.r.k

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

http://if-schleife.de/

http://www.delphipraxis.net/internal...132959#1132959

[TheMiller]

Nicht, dass das hier jetzt zu einer Endlosschleife wird :wink:

[uligerhardt]

Zitat:

Zitat von DJ-SPM

Nicht, dass das hier jetzt zu einer Endlosschleife wird :wink:

Was ist denn eineEndlosschleife?

[BUG]

Zitat:

Zitat von s.h.a.r.k

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

If-Schleife = While + If = Case :zwinker: