Ich hab hier ein alltägliches Problem ...

[Popov]

Zitat von nahpets:

Hallo,

wie wäre es mit:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject); 
begin 
  with ComboBox1, Items do begin
    itemindex := IndexOf(edit1.text)
end;

Wenn Text in der Combobox enthalten ist, dann wird der entsprechende Index gesetzt, andernfalls liefert IndexOf -1 und Du hast Dein Ergebnis.

Danke dir, die Idee ist natürlich gut, aber wie ich schon gesagt habe, habe ich hier nur ein konstruiertes Beispiel gepostet. Im eigentlichen Programm wird nicht der Items Wert ins Editfeld geschrieben, sondern ein Objekt-Wert. Und dort können sich Werte wiederholen. Ich wollte das Beispiel nicht zu kompliziert machen.

Sonst aber ein guter Tipp.