ListBoxeinträge nach einem bestimmten Wort durchsuchen

[Muetze1]

Moin!

Alcaeus Code mit Fehlerbehebung:

Delphi-Quellcode:

function DeleteStrings(Items: TStrings; Pattern: String; CaseSensitive: Boolean=True): Integer;
var
  DeleteEntry: Boolean;
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;

- bei Pos die Ergebnisabfrage vergessen
- ListBox.Items.Count anstatt ListBox.Count
- Inc() beim Result inkrement
- ListBox Abhängigkeit entfernt und auf TStrings umgestellt, somit auch für ComboBoxen, etc

MfG
Muetze1