Objeckte mit einem Integer assoziieren

[CalganX]

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