In einer ListBox einen Eintrag suchen bzw. Eintrag ändern

[leddl]

Zitat von jeany06:

Hey, tut uns echt leid, dass wir das nicht hinbekommen, die -1 wurde uns mit dem Aufhängen des Programms gezeigt, mit dem Verweis, das irgendwas noch viel größer ist, schicke dir jetzt was wir haben. Zumindest stürzt er jetzt nicht mehr ab. Markiert aber auch nicht den SUchbegriffe.

Delphi-Quellcode:

procedure TForm1.Button9SucheClick(Sender: TObject);
var i:integer;
begin
        FOR i := 0 TO ListBoxText.Items.Count - 1 DO
        if ListBoxText.ItemIndex = ListBoxText.Items.IndexOf(Edit9Suche.Text)
        then ListBoxText.Color:=TColor(3);

end;

Und wir dachten die Schleife, weil die Listbox durchsucht werden soll nach dem Begriff.
Wir haben auch nur nicht wirklich viel über Delphi gelernt, deshalb nochmals dickes SORRY für all die dummen Fragen.
lg

Delphi-Quellcode:

if ListBoxText.Items.IndexOf(Edit9Suche.Text) > -1 then
  ListBoxText.Color := TColor(3);

Dein Code macht so einfach keinen rechten Sinn. Ich hoffe, ich habe es aber trotzdem richtig interpretiert.

//Edit: Ich sehe gerade, du willst das gefundene Item markieren.
ListBoxText.ItemIndex := ListBoxText.Items.IndexOf(Edit9Suche.Text);