Deddy , danke für den thread
Der Code leuchtet ein
Delphi-Quellcode:
uses StrUtils;
procedure FilterItems(const sl: TStrings; const substr: string);
var i: integer;
begin
sl.BeginUpdate;
try
for i := Pred(sl.Count) downto 0 do
if not StrUtils.AnsiContainsText(sl[i],substr) then
sl.Delete(i);
finally
sl.EndUpdate;
end;
end;
aber funktioniert halt nicht im onKeyPress, logich weil ich ja den nicht gelöschten Inhalt wieder in die Listbox einfügen muss.
Nur habe ich keine AHnung wie, villeicht ein kleiner Denkansatz , würde mich freuen