Ich habe eine Variable eines Mengentyps. Nun möchte ich gerne diese Variable aus einer Combobox heraus setzen. Wie mach ich das am einfachsten?
Hier mal der Code.
Die Strings in der ModeBox heisen natürlich auch Rot, Gruen,... wobei es auch nett wäre diese Einträge aus der Menge heraus zu füllen.
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21:
| type TMode = (Rot, Gruen, Blau, Gelb, Weiss, Schwarz); TForm1 = class(TForm) ModeBox: TComboBox; procedure ModeBoxChange(Sender: TObject); ... public Mode : TMode; end;
var Form1: TForm1;
implementation
procedure TForm1.ModeBoxChange(Sender: TObject); begin // hier soll nun je nach Auswahl der Wert von Mode geändert werden end;
end. |
Eventuell bin ich auch total auf dem Holzweg und es gibt eine viel einfachere Lösung. Ich will das ganze später vielleicht mal in eine Komponente einbauen, wobei Mode dann eine Eigenschaft werden soll.
Ich hab diese Art der Menge übrigends aus einer Komponente. Kenn mich aber mit Mengen selber nicht so gut aus
Kommt nämlich gleich die nächste Frage, wie ich den Wert von Mode in einer If oder Case verwende...
"Der Mensch ist nicht was er sich vorstellt oder wünscht zu sein, sondern das was andere in ihm sehen."