Hallo,
vielleicht ist die triviale Präfix-Suche garnicht gewünscht.
Delphi-Quellcode:
procedure FilterStrings(sAll, sFilter: TStrings; const filter: string);
var
i: Integer;
begin
sFilter.BeginUpdate;
sFilter.Clear;
try
for i := 0 to Pred(sAll.Count) do
if {StrUtils.}AnsiContainsText(sAll[i], filter) then
sFilter.Append(sAll[i]);
finally
sFilter.EndUpdate;
end;
end;
Grüße vom marabu