TStringlist: Delete in einer Schleife

[Dax]

Zitat von Tyrael Y.:

downto ist dein freund

Der andere Freund hieße repeat oder while.

Delphi-Quellcode:

i := 0;
while i < list.Count do
begin
  if list[i] = Suchstring then
    List.Delete(i)
  else
    Inc(i);
end;

// bzw

repeat
  if list[i] = Suchstring then
    List.Delete(i)
  else
    Inc(i);
until i = List.Count;