Listbox Maximum Überschriten

[JoFresh mit Joghurt]

Hi
Beim Programmieren ist mir folgendes passiert:
bei diesem QUelltext:

Delphi-Quellcode:

 For i:= 0 to Listbox1.Items.Count-1 do
   begin
    Name:= Listbox1.Items[i];
     If Length(Name) <> 4 then
      begin
       Listbox1.Items.Delete(i);
      end;
  end;

hatte ich das Problem des beim aufrufen der Procedur gemeldet wurde, das das Listbox maximum überschriten wurde.

das Problem habe ich gelöst, indem ich nach der Schleife eine weitere schleife eingefügt habe:

Delphi-Quellcode:

For i:= j to Listbox1.Items.Count-1 do

das ganze sieht also jetzt so aus:

Delphi-Quellcode:

For i:= 0 to Listbox1.Items.Count-1 do
  For j:= i to Listbox1.Count -1 do
   begin
    Name:= Listbox1.Items[i];
     If Length(Name) <> 4 then
      begin
       Listbox1.Items.Delete(i);
      end;
  end;

Es klappt jetz auch wunderbar, aber leider verstehe ich nicht, warum, was hat die 2. Schleife jetzt geändert?

[mkinzler]

Beim Löschen, immer von oben abwärts zählen.

[Luckie]

Um das mal zu begründen: Durch die for-Schleife legst du die Anzahl der Schleifendurchgänge fest, wenn du jetzt Eintröge löscht, hast du aber weniger Einträge als durchlaufen werden sollen.