Name von Aufzähltypen

[braunbär]

Wenn ich einen Aufzähltyp
var x: (blau, gelb, rot)
habe, kann ich mit dem write-Befehl den Namen des aktuellen Werts ausgeben. Ich habe aber nicht gefunden, wie ich sonst im Programm auf den String-Wert direkt zugreifen kann (und ChatGPT sagt mir, das geht nicht). Geht das wirklich nicht? Für das write müssen die Strings doch zu Laufzeit verfügbar sein.

[braunbär]

...

[theo]

Code: Alles auswählen

var x: (blau, gelb, rot);
    S:String;
begin
WriteStr(S,gelb);
Caption:=S;
end;

[PascalDragon]

Wenn ich einen Aufzähltyp
var x: (blau, gelb, rot)
habe, kann ich mit dem write-Befehl den Namen des aktuellen Werts ausgeben. Ich habe aber nicht gefunden, wie ich sonst im Programm auf den String-Wert direkt zugreifen kann (und ChatGPT sagt mir, das geht nicht). Geht das wirklich nicht? Für das write müssen die Strings doch zu Laufzeit verfügbar sein.

Hierfür ist das Str-Intrinsic da.

Code: Alles auswählen

var
  x: (blau, gelb, rot);
  s: String;
begin
  Str(gelb, s);
  Writeln(s);
end.

[braunbär]

Danke! Ich habe mir ja gedacht, dass ChatGPT da falsch liegt.
Man darf dem auch nicht alles glauben

[Niesi]

Code: Alles auswählen

var x: (blau, gelb, rot);
    S:String;
begin
WriteStr(S,gelb);
Caption:=S;
end;

.

Mir ist unklar, wofür das gut ist - was kann ich damit machen?

[Jorg3000]

Moin!

ChatGPT sagt mir, das geht nicht

Ich habe es gerade in der kostenlosen Version ausprobiert, da kriegt man tatsächlich keine Lösung angeboten.
Im Plus-Paket wird mir bei gleicher Fragestellung eine andere, ebenfalls funktionierende(!) Lösung ausgespuckt:

Code: Alles auswählen

  uses TypInfo;
  var x: (blau, gelb, rot);
  x := gelb;
  s := GetEnumName( TypeInfo(x), Ord(x) );
  ShowMessage(s); // Writeln(s);  

Ich kannte bisher keine der Lösungsmöglichkeiten, weder über GetEnumName() noch über Str() - also gut, dass es dieses Forum gibt.
Grüße, Jörg

[braunbär]

...

[braunbär]

Code: Alles auswählen

var x: (blau, gelb, rot);
    S:String;
begin
WriteStr(S,gelb);
Caption:=S;
end;

Mir ist unklar, wofür das gut ist - was kann ich damit machen?

Es gibt verschiedene Situationen, in denen man den Namen braucht. Ein Beispiel ist ein mehrsprachiges Programm, in dem eine Ausgabe zur Laufzeit automatisch in die richtige Sprache übersetzt werden soll. Oder, wie in dem Beispiel, das du zitierst, die Caption einer graphischen Komponente zu setzen, die am Bildschirm ausgegeben wird (Form, Label, Dropdown Box, was auch immer). Ich brauche es, weil ich für meine Logging Routine lieber den Klartext des Aufzähltyps als eine nichtssagende Nummer verwenden möchte.

Im Plus-Paket wird mir bei gleicher Fragestellung eine andere, ebenfalls funktionierende(!) Lösung ausgespuckt:

Oh! ich denke schon seit einiger Zeit daran, mir gelegentlich ein Abo zu besorgen. Vielleicht sollte ich das jetzt wirklich machen.

gut, dass es dieses Forum gibt.

Dem kann ich mich nur anschließen

[m.fuchs]

Danke! Ich habe mir ja gedacht, dass ChatGPT da falsch liegt.
Man darf dem auch nicht alles glauben

Dann ist dir ja jetzt hoffentlich klar, warum das Ding keine Empfehlung für Anfänger ist.

[Zvoni]

Es gibt verschiedene Situationen, in denen man den Namen braucht. Ein Beispiel ist ein mehrsprachiges Programm, in dem eine Ausgabe zur Laufzeit automatisch in die richtige Sprache übersetzt werden soll. Oder, wie in dem Beispiel, das du zitierst, die Caption einer graphischen Komponente zu setzen, die am Bildschirm ausgegeben wird (Form, Label, Dropdown Box, was auch immer).

Dann ist aber dieses Verfahren dafür eher ungeeignet. Dafür gibts doch Ressourcen.

Ich brauche es, weil ich für meine Logging Routine lieber den Klartext des Aufzähltyps als eine nichtssagende Nummer verwenden möchte.

Dafür ist es wiederum sehr geeignet

Zusammengefasst: Ein Aufzählungstyp ist im Prinzip eine "Abkürzung" um nicht unzählige Konstanten verwenden zu müssen wobei man gleichzeitig noch den Wertebereich einschränken/festlegen kann.
Es ist eine "Programmierhilfe" um den Quelltext "lesbarer" zu machen

[theo]

Code: Alles auswählen

var x: (blau, gelb, rot);
    S:String;
begin
WriteStr(S,gelb);
Caption:=S;
end;

Mir ist unklar, wofür das gut ist - was kann ich damit machen?

Naja, hier beschreiben (blau, gelb, rot) ja eigentlich nur eine Aufzählung (wie Konstanten: 0,1,2), es sind keine Strings.
Ord(gelb) gibt z.B. 1 zurück.
Wenn ich nun aber "menschenlesbar" wissen möchte was ausgewählt ist (z.B. fürs Logging), kann ich mit den genannten Methoden eben doch einen String 'gelb' erhalten.
Es grenzt an Magie!

[Niesi]

...

Es ist eine "Programmierhilfe" um den Quelltext "lesbarer" zu machen

Wenn ich das bereits gezeigte Beispiel nehme:

Code: Alles auswählen

var
  x: (blau, gelb, rot);
  s: String;
begin
  Str(gelb, s);
  Writeln(s);
end.

Da spare ich ne Menge Zeilen und habe es verständlicher, wenn ich gleich

WriteLn('gelb');

eingebe ...

[Niesi]

Code: Alles auswählen

var x: (blau, gelb, rot);
    S:String;
begin
WriteStr(S,gelb);
Caption:=S;
end;

Mir ist unklar, wofür das gut ist - was kann ich damit machen?

Naja, hier beschreiben (blau, gelb, rot) ja eigentlich nur eine Aufzählung (wie Konstanten: 0,1,2), es sind keine Strings.
Ord(gelb) gibt z.B. 1 zurück.
Wenn ich nun aber "menschenlesbar" wissen möchte was ausgewählt ist (z.B. fürs Logging), kann ich mit den genannten Methoden eben doch einen String 'gelb' erhalten.
Es grenzt an Magie!

Hab Deine Antwort zu spät gesehen, musste gerade umsteigen ...

Wozu ist das gut? Wenn die User 'gelb' lesen sollen, geht das dann mit Konstanten nicht viel einfacher?

[Zvoni]

Hab Deine Antwort zu spät gesehen, musste gerade umsteigen ...

Wozu ist das gut? Wenn die User 'gelb' lesen sollen, geht das dann mit Konstanten nicht viel einfacher?

Ich verstehe das eher so:
Ein Array kann bekanntlich auch mit einem Aufzählungstype deklaliert werden

Code: Alles auswählen

Type
   Farben = (gelb, blau, rot);
   
Var
  arr:Array[Farben] Of String;

Und je nachdem, welche "Sprache" der User für sich eingestellt hat, kann für

Code: Alles auswählen

//User hat deutsch
Writeln(arr[gelb]); //--> output = "gelb"
....
//User hat englisch
Writeln(arr[gelb]); //--> output = "yellow"

kommen, in seinem LOGGING würde aber immer "gelb" stehen, weil er den numerischen Wert "übersetzt"