Combobox auslesen

[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.