Einträge in Listbox gelöschen

[Muetze1]

Warum so kompliziert?

Delphi-Quellcode:

  ListBox1.Items.BeginUpdate;
  Try
    While ( ListBox1.Items.Count > 1 ) Do
      ListBox1.Items.Delete(1);
  Finally
    ListBox1.Items.EndUpdate;
  End;