Listbox - "Leeritem" löschen

[jbg]

Eswas schneller geht es mit einer rückwärts laufenden FOR-Schleife:

Delphi-Quellcode:

for i := ListBox1.Items.Count - 1 downto 0 do
  if ListBox1.Items[i] = '' then
    ListbOx1.Items.Delete(i);