Listindex überschreitet Maximum - Einmal ja, einmal nein?

[Muetze1]

Zitat von draGo:

Delphi-Quellcode:

for I := 0 to StringLst.Count -1  do begin
  frmmain.anzeige.Rowcount := frmmain.anzeige.rowcount +1;

  if zeile > 7 then
    zeile := 0;

   if StringLst.Strings[i] = '' then
      StringLst.Delete(i);


  Frmmain.Anzeige.Cols[zeile].Add(StringLst.strings[i]);
  zeile := zeile +1;

 end;

Du löscht Einträge in der StringList und dabei verringert sich der Count. Das Problem dabei: For Schleifen evaluieren nur einmal die Laufvariablengrenzen und während des Durchlaufs nicht mehr. Dadurch läuft er zu der Originalen Count Anzahl durch und greift damit auf die ungültigen Einträge zu, wenn welche gelöscht wurden. Abhilfe schafft hier die Schleife rückwärts laufen zu lassen (DownTo) oder einen anderen Schleifentyp zu nutzen wie z.B. While.