Hallo,
Zitat von
Billi Berserker:
Gibt es irgendwie eine effektive möglichkeit die case anweisung zu umgehen?
das geht unter Verwendung der
Unit TypInfo:
Delphi-Quellcode:
// uses TypInfo
type
TPageNumberAlignment = (paCenter, paLeft, paRight);
procedure TDemoForm.Button1Click (Sender: TObject);
var
pna : TPageNumberAlignment;
s : string;
begin
pna := paLeft;
s := GetEnumName(TypeInfo(TPageNumberAlignment), Ord(pna));
ShowMessage (s);
s := 'paRight';
pna := TPageNumberAlignment(GetEnumValue(TypeInfo(TPageNumberAlignment), s));
ShowMessage (IntToStr(Ord(pna)));
end;
Gruß Hawkeye