Löschen aus der StringList verursacht Fehler, wieso?

[AlexII]

Hallo,

ich lösche wie folgt aus einer StringList, aber immer beim letztem oder vorletztem Item bricht das Programm zusammen, da "List index (x) out of bounds"
Ich verstehe nicht wieso... wird der Count etwa runtergezählt? Wie kann man sich das anders erklären, oder mache ich was falsch?

Delphi-Quellcode:

procedure TMainForm.DeleteFromErrorList(pvErrorCode: String);
var
  i, p: Integer;
begin
  if gvErrorReportList.Count > 0 then
  begin
    for i := 0 to gvErrorReportList.Count - 1 do
    begin
      p := Pos(ErrorCode, gvErrorReportList.Strings[i]);
      if p <> 0 then
      begin
        gvErrorReportList.Delete(i);
      end;
    end;
  end;

end;

Danke!

[Luckie]

Du löscht von oben weg. Aber in der for-Scheife wird Count nicht jedes mal wieder neu berechnet. Ergo es knallt, weil Count noch den Wert x hat aber nur noch x-1 Einträge vorhanden sind.

Lass die Schleife rückwärts laufen.

[AlexII]

Ok... und das Löschen von unten löst das so wie ich das verstehe, oder? Mit einer while-Schleife? OK, danke!

[Luckie]

Eben nicht. Das ist ja das Problem.

[Popov]

Erklärung?

[Luckie]

Die haben wir beide doch schon geliefert.

[Popov]

Du musst eines bedenken: nehmen wir an du hast eine StringList mit 10 Items, also Count = 10.

Nun gehst du mit For To Do 0 bist 9 durch. Das ist der Wert von Count - 1 am Anfang. Das merkt sich die For To Do Schleife. Sie merkt sich die Zahl 9 und geht alle 10 Werte durch. Aber mitten drin löscht du Items aus der StringList. Nach dem ersten Löschvorgang gibt es nur noch 9 Items, nach dem zweiten 8, bei dem dritten 7, vierten 6, fünften 5, sechsten (das wäre dann i = 5) hätte die StringList nur noch 4 Items. Spätestens hier greifst du auf einen Item den es nicht mehr gibt.

Lösung: nicht for i := 0 to gvErrorReportList.Count - 1 do sondern for i := gvErrorReportList.Count - 1 downto 0 do . In dem Fall gehst du von oben nach unten und überschreitest nie die Grenze.

[himitsu]

Zitat von AlexII:

Ich verstehe nicht wieso...

Du könntes auch mal den Debugger benutzen und nachsehn.

Zitat von AlexII:

wird der Count etwa runtergezählt?

Wie bereits gesagt wurde, zählt Count zwar runter, aber die For-Schleife cached das Schleifenende. (es wird immer nur einmal zu Beginn ausgewertet)

Aber selbst wenn es das nicht zwischenspeichern würde, dann hättest du ein Problem, da du bei einer For-Schleife Einträge überspringt, wenn du was löschst, da die Schleife erbarmunglos hochzählt, aber die Einträge nach dem Gelöschten verschoben werden.

Also entweder rückwärts oder mit While-Schleife, egal wie rum, aber bei Vorwärts dort natürlich den Index nicht hochzählen, wenn grade gelöscht wurde.


PS: Das IF vor dem FOR kannst'e dir sparen, denn wenn die Liste leer ist, dann heißt es

Delphi-Quellcode:

for i := 0 to {count}0 - 1 do  // 0 bis -1
// oder
for i := {count}0 - 1 downto 0 do

und das macht dann natürlich nichst.