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!

[Popov]

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

Nun gehst du mit

Delphi-Quellcode:

For To Do

0 bist 9 durch. Das ist der Wert von Count - 1 am Anfang. Das merkt sich die

Delphi-Quellcode:

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

Delphi-Quellcode:

for i := 0 to gvErrorReportList.Count - 1 do

sondern

Delphi-Quellcode:

for i := gvErrorReportList.Count - 1 downto 0 do

. In dem Fall gehst du von oben nach unten und überschreitest nie die Grenze.

[Luckie]

Eben nicht. Das ist ja das Problem.

[Popov]

Erklärung?

[Luckie]

Die haben wir beide doch schon geliefert.

[Perlsau]

Ich glaube, das Mißverständnis besteht darin, daß Luckie mit seinem "Eben nicht" auf das Posting von AlexII geantwortet hat und nicht auf das von Popov. Passiert manchmal, wenn einer "zwischenrein" postet :-D

Dieses Beispiel funktioniert korrekt (eben schnell in CodeTyphon getippt und getestet):

Delphi-Quellcode:

procedure TFormMain.Button2Click(Sender: TObject);
Var
  Liste : TStringList;
  i     : Integer;
begin
  Liste := TStringList.Create;

  Try
    For i := 1 To 10 Do
        Liste.Append('Eintrag ' + IntToStr(i));
    ShowMessage('Listen-Zahl = ' + IntToStr(Liste.Count));
    For i := Liste.Count -1 DownTo 0 Do
        Liste.Delete(i);
  Finally
    ShowMessage('Listen-Zahl = ' + IntToStr(Liste.Count));
    Liste.Free;
  End;
end;

[Popov]

Das "Eben nicht" hat mich irritiert. Weiß nicht auf welchen Post es bezogen ist.

[AlexII]

Man, man, voll easy... muss nur bisschen nachdenken... und selber solche Problemchen lösen. Vielen Dank euch!