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:
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?