Combobox auslesen

[zapper54]

Hallo!

Ich habe folgendes Problem: Ich habe in ein Programm eine Combobox eingebaut. In diese habe ich 3 verschiedene Items gesetzt: "Nur Zahlen", "Nur Buchstaben" und "Zahlen und Buchstaben". Jetzt möchte ich, wenn jemand eines der Dinge auswählt, einem Integer einen bestimmten Wert zuweisen.

Wie geht das? (Ich weiß, die Frage mag leicht zu beantworten sein, aber ich hab lange nicht mehr programmiert, und bin deshalb ein wenig eingerostet ;)

MfG

zapper54

[jfheins]

Das OnChange Ereignis der ComboBox sollte der richtige Ort sein ;)

[DeddyH]

Je nach ComboboxStyle kannst Du den ItemIndex auswerten.

[zapper54]

Ich habe es bereits mit OnChange versucht... aber wie werte ich den Item Index aus?

Code:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if Combobox1.items.Objects = 'Nur Zahlen' then combo:=1;
if Combobox1.Items.Objects = 'Nur Buchstaben' then combo:=2;
if Combobox1.Items.Objects = 'Buchstaben und Zahlen' then combo:=3;
end;

[DeddyH]

Delphi-Quellcode:

Combo := Combobox1.ItemIndex + 1;

[jfheins]

Simple Lösung?

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
combo := Combobox1.ItemIndex + 1;
end;

Kurz und knackig.

Wenn combo einen Enum als Typ hätte, wäre es noch besser lesbar.

[zapper54]

Vielen Dank euch beiden! Wenn ich nochmal ein Problem haben sollte, dann meld ich mich ^^