enum-Typ und array

[p80286]

hallo zusammen,
ich steh mir gerade selbst auf den Füßen.
Für einen Enum-Typen möchte ich auch gleich den Klartext zur Hand haben:

Delphi-Quellcode:

type
 tEVType = (EVUndef,EVAusz,EVPausch,EVProduct);

const
  cEVType:array [min(tEVType)..max(tEVType)]=('EVundef','EVAusz','EVPausch','EVProduct');

var
  myev : tEVType;

....

 writeln(cEVTYPE[myEV]);
.....

Geht das überhaupt?

Gruß
K-H

[Ghostwalker]

jap:

  const cEvType : array[TevType] of String = ('EVundef','EVAusz','EVPausch','EVProduct');

[p80286]

Danke!

Gruß
K-H

[SneakyBagels]

Zitat:

Für einen Enum-Typen möchte ich auch gleich den Klartext zur Hand haben:

Wieso wandelst du den Enum nicht in einen String um? Das vermeidet doppelte "Buchführung"

[Ghostwalker]

Weil man den String im Regelfall nur zur Ausgabe hin benötigt. Wenn man das ganze z.B. in einer DB speichern möchte, reicht ein Byte (oder Integer)-Feld.

Alles eine Frage der Effizients

[SneakyBagels]

Zitat:

Wenn man das ganze z.B. in einer DB speichern möchte, reicht ein Byte (oder Integer)-Feld.

Nirgendwo steht aber, dass er in eine Datenbank schreiben möchte.

[Ghostwalker]

Richtig, das war aber auch nur ein Beispiel.

Es ging aber auch nicht darum den Enum zu elemenieren.

[himitsu]

Und warum nicht Delphi das in einen String umwandeln lassen?

GetEnumName / GetEnumValue (TypInfo)
TRttiEnumerationType.GetName / TRttiEnumerationType.GetValue (RTTI, allerding ist das in XE private, aber klang so, als wenn sich das geändert hat ... ist eh eine saudumme Idee und ich hab sowas schon seit Jahren für mich selbst gebaut ... die ollen Nachmacher )

Solange keiner auf die doofe Idee kommt und den Enum manuell indiziert, gibt es auch die nötigen RTTI-Infos.
Also nicht bei type tEVType = (EVUndef=123,EVAusz,EVPausch,EVProduct); .

[Ghostwalker]

Stimmt...is sogar einfacher

[p80286]

Gute Idee!
Da ich aber an z.B "EVAusZ" noch weitere Strings hängen habe, u.a. SQL-Abfragen, ist die erstgenannte Lösung genau das richtige.

Gruß
K-H