eingabe in edit schon vorhanden?

[Helmi]

Hallo,

Sharky hat dir die Lösung eigentlich schon geschrieben.
Mit "IndexOf" gehts kanns einfach.

Hier mal ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;

begin
  S := Edit1.Text;

  with ComboBox1.Items do
    begin
      If IndexOf(S) = -1 then
        Add(S)
      else
        ShowMessage('schon drin');
    end;
end;