TStringlist ab bestimmter Stelle abschneiden

[Overburn]

Moin,

eigentlich ein simples Problem:
Ich lese eine XML-Datei in eine Stingliste. Dann möchte ich alle Zeile ab einem bestimmten Wort löschen. Wie löse ich das am besten?

Delphi-Quellcode:

  i := 0;
  while i < l2.Count do begin
    if l2[i] = '</Groups>' then delete := true;

    if delete = true then l2.Delete(i);
    i := i + 1;
  end;

Ich habe es mit oben genanntem Code probiert, allerdings weise ich danach den Inhalt zur visuellen Kontrolle einem Memo zu und dort ist wieder der gesamte Inhalt, außer dem "</Groups>".

Ich find meinen Denkfehler leider nicht... :(

Gru,
Stefan

[Nuclear-Ping]

Jedesmal wenn du eine Zeile in einer Liste löschst, rutscht alles um eins nach oben.

[Overburn]

Nenn mich bescheurt, aber das heißt was für meine Schleife?

[Xong]

Zitat:

Zitat von Overburn

Nenn mich bescheurt, aber das heißt was für meine Schleife?

Stillstand der Zählvariablen!

[Bernhard Geyer]

Zitat:

Zitat von Overburn

Nenn mich bescheurt, aber das heißt was für meine Schleife?

Von oben nach unten, nicht von unten nach oben durchlaufen:

Delphi-Quellcode:

i := l2.Count-1;
while i >= l2.Count do begin 
begin
  ...
  Dec(i);
end;

[Xong]

Zitat:

Zitat von Bernhard Geyer

Von oben nach unten, nicht von unten nach oben durchlaufen

Gute Idee.
Ist diese Variante merklich schneller?