Hi,
ja gibt es. Ich habe
diesen Beitrag mal etwas modifiziert:
Delphi-Quellcode:
uses {...}, TypInfo, {...};
type
TSaeule = (S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12);
procedure TForm1.Button1Click(Sender: TObject);
var
aRes: TSaeule;
begin
aRes := TSaeule(GetEnumValue(TypeInfo(TSaeule), 'S'+IntToStr( {-->} DeinIntegerWert {<---} )));
end;
Das einzige Problem ist, dass du das mit einem Array nicht so machen kannst. Allerdings musst du mal gucken, ob du dein Programm umschreiben kannst, denn so geht es auf jedenfall.
Chris