Versuche mal, durch alle Items durchzugehen und bei jedem mit
Pos abzufragen, ob die Zeichenkette existiert. Beispielcode:
Delphi-Quellcode:
for i := 0 to ListBox1.Items.Count-1 do
begin
ListBox1.MultiSelect := true;
if Pos(SearchFor.Text, ListBox1.Items[i]) <> 0 then
ListBox1.Selceted[i] := true;
end;
Mit diesem Code werden alle Einträge selektiert, die Irgendwo die Zeichenkette im Edit SearchFor enthalten.