Und wieder die leidige ComboBox

[City Light]

zu 2.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
begin
  ComboBox1.Items.Add(Edit1.Text);
  I := ComboBox1.Items.IndexOf(Edit1.Text);
  if I > -1 then
    ComboBox1.ItemIndex := I;
end;

Gruße Tino