folgender Code ergibt bei mir eine Fehlermeldung:
Code: Alles auswählen
Procedure TForm1.Button1Click(Sender: TObject);
Type
TBlub = (b1, b2, b3);
Var
sl: TStringList;
value: TBlub;
Begin
sl := TStringList.Create;
sl.AddObject('1', TObject(b1));
sl.AddObject('2', TObject(b2));
sl.AddObject('3', TObject(b3));
value := TBlub(sl.Objects[1]); // Unsicher, geht aber auch net
value := sl.Objects[1] as TBlub; // -- geht net
sl.free;
End;