Hallo,
für den Eingangstest hast du gar keine Erklärung geliefert.
Delphi-Quellcode:
procedure DeleteItems(s: TStrings; const item: string = '');
var
i: Integer;
begin
s.BeginUpdate;
try
for i := Pred(s.Count) downto 0 do
if s[i] = item then
s.Delete(i);
finally
s.EndUpdate;
end;
end;
Getippt und nicht getestet.
Grüße vom marabu