String zu Typ

[Panthrax]

Zitat von SimonRap:

Nur mal so aus Interesse:
Wie würde das denn mit der

Zitat von SirThornberry:

aufwändigen Stringumwandlung

gehen?

So:

Delphi-Quellcode:

uses
  TypInfo;

type
  TEnum = (enEins, enZwei, enDrei);

var
  Value: TEnum;
  S: String;
  
begin
  Value := enZwei;
  S := GetEnumName(TypeInfo(TEnum), Integer(Value));
  WriteLn(S);
  Value := GetEnumValue(TypeInfo(TEnum), S); // nur um es zu zeigen...
  WriteLn(Value);
end;