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