ListBox Suche ergänzen?

[Matze]

Hallo,

so geht's:

Delphi-Quellcode:

procedure TForm1.SearchEditChange(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ListBox1.Count - 1 do
  begin
    ListBox1.Selected[i] := Pos(SearchEdit.Text, AnsiLowerCase(ListBox1.Items[i])) > 0;
  end;
end;

Grüße, Matze