Delphi-Quellcode:
function DeleteStrings(Items: TStrings; Pattern: String; CaseSensitive: Boolean=True): Integer;
var
DeleteEntry: Boolean;
i : integer;
begin
Result := 0;
for i := Items.Count-1 downto 0 do
begin
if CaseSensitive then
DeleteEntry := (Pos(Pattern, Items[i]) = 0)
else
DeleteEntry := (Pos(LowerCase(Pattern), LowerCase(Items[i])) = 0 );
if DeleteEntry then
begin
Items.Delete(i);
Inc(Result);
end;
end;
end;
wenn ich die funktion so aufrufe:
DeleteStrings(lb_streams.Items, edit_filter.Text, False);
funktionierts ganz gut, nur wenn das wort in der listbox großgeschrieben ist löscht er es auch raus!
