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?

markieren

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

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

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

Zitat von Overburn:

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

Stillstand der Zählvariablen!

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:

markieren

Delphi-Quellcode:

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

Zitat von Bernhard Geyer:

Von oben nach unten, nicht von unten nach oben durchlaufen

Gute Idee.
Ist diese Variante merklich schneller?