ListBoxeinträge nach einem bestimmten Wort durchsuchen

[alcaeus]

Hallo St.Pauli,

Delphi-Quellcode:

function DeleteStrings(ListBox: TListBox; Pattern: String; CaseSensitive: Boolean=True): Integer;
var
  DeleteEntry: Boolean;
begin
  Result := 0;
  for i := ListBox.Count-1 downto 0 do
  begin
    if CaseSensitive then
      DeleteEntry := Pos(Pattern, ListBox.Items[i])
    else
      DeleteEntry := Pos(LowerCase(Pattern), LowerCase(ListBox.Items[i]))
    if DeleteEntry then
    begin
      ListBox.Items.Delete(i);
      Result := Result+1;
  end;
end;

Sollte selbsterklaerend sein. Als Rueckgabewert gibts die Anzahl der geloeschten Eintraege.

Greetz
alcaeus