Listbox leere Einräge löschen.

[delphi_newbie_123]

Hallo,
ich hab wieder mal ein Problem mit den Listboxen.
Und zwar will cih in einer Schleife alle leeren Einträge löschen.
Ich versuch es mit

Delphi-Quellcode:

   for cl:=0 to Listbox4.Items.Count-1 do
   begin

   if Listbox4.Items[cl] = ''
     then
       begin
        Listbox4.items.delete(cl);
       end;

   end;

doch das klappt nicht.
was mache ich falsch ?

[s14]

Hallo,
du must die Reihenfolge umdrehen.
Also:

Delphi-Quellcode:

 for cl := Listbox4.Items.Count-1 downto 0

[delphi_newbie_123]

hi,
danke aber warum muss ich das umdrehen?
verstehe das nicht..

[Sharky]

Zitat:

Zitat von delphi_newbie_123

hi,
danke aber warum muss ich das umdrehen?
verstehe das nicht..

Ganz einfach ;-)
Angenommen Du hast in deiner LB 8 Einträge (0-7). Deine Schleife beginnt bei 0 und zählt bis 7. Wenn Du jetzt den vierten Eintrag (3) löschst sind in der LB und noch 7 Einträge (0-6) die Schleife würde aber weiterhin bis 7 laufen. Beim letzten Zugriff gäbe es in diesem Fall also einen Fehler da der Eintrag nicht mehr vorhanden ist.

[delphi_newbie_123]

ahaaa danke ;)