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