Aufzählungstyp in Typ String umwandeln

[Scorpius]

Hallo,

wer kann mir helfen: ich versuche eine Aufzählung wie:
type
Aufzählung = (Punkt1, Punkt2,...)

in variablen vom Typ String übergeben, nur leider ernte ich nur Fehlermeldungen.
Gibt es da eine Möglichkeit??

Für jede Antwort im voraus Danke

[ArrayOf..]

Ich glaube das geht überhaupt nur, indem du den Wert jeweils mit allen Möglichkeiten abfragst - ihn so eindeutig identifizierst und dann also auch den String entsprechend beladen kannst. Am Besten eignet dazu eine Case-Of -Anweisung:

Delphi-Quellcode:

case Heute of

Montag   : Wochentag := 'Montag';
Dienstag : Wochentag := 'Dienstag';
.
.

end; { of case }

[edit]

genau, so geht's übrigens auch noch:

Delphi-Quellcode:

const   TageStr : array[0..2] of string  = ('Montag','Dienstag','Mittwoch');
.
.
type
  Tage = (Montag, Dienstag, Mittwoch);

var
  Form1: TForm1;
  Wochentag : Tage;
.
.
procedure TForm1.Button1Click(Sender: TObject);
begin
  Wochentag := Montag;
  button1.Caption := TageStr[ord(Wochentag)];
end;

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[negaH]

http://www.delphipraxis.net/internal...ct.php?t=10319

[sakura]

In diesem Thread wurde ein gleich/ähnlich gelagertes Problem erst gestern und heute besprochen.

http://www.delphipraxis.net/internal...ct.php?t=10319

......

[negaH]

@Sakura, der unwahrscheinliche Fall ist eingetreten, das wir beide exakt zu gleichen Zeit die gleiche Antwort geben. Du musst einen ausgeben

[sakura]

Dann gebe ich Dir zwei Optionen

1. Du kommmst heute Abend nach München, oder
2. Du gibst Dich damit zufrieden

......

[CalganX]

Hi,
*gg* Warum sakura? Du kannst doch auch einen ausgeben. Denn sakura ist ein Super-Mod und somit dir übergeordnet...

Chris

Sorry, für dieses OT. Aber es war grad' so schön und da musste ich alles kaputt machen.

[Scorpius]

Erst mal Danke für alle Antworten!!

Danke negaH & sakura (schön das Ihr Euch so einig seid), genau das hab ich gesucht. Die suchfunktion der DP hatte mir alle möglichen Beiträge geliefert nur nicht den von Euch geposteten.
Genauso hab ich auch schon vor der Delphi-Hilfe gesessen, vergebens, und heute Schreibt er mit zu
"GetEnumName" --> "Die Funktion gibt anhand des Wertes den Namen einer Delphi-Typkonstante einer Aufzählung zurück." man sieht den Wald vor lauter Bäumen nicht .

danke auch an ArrayOf.., genau diesen Code-Marathon wollt ich vermeiden. Ich hatte es auch schon versucht sämtliche Aufzählungen nochmal in "Array of String" (dürfte Dir bekannt vorkommen) zu deklarieren und mit Ord(x) auszulesen. Abba mach das mal bei mehreren Hundert Aufzählungen!!

Nochmals danke

[ArrayOf..]

... gut ich werd mir das mal angucken, vielleicht ist das ja noch besser als die Sache mit der konstanten String-Array...

(man lernt ja nie aus!)

*g*