Einträge in Listbox gelöschen

[Knotti2005]

Wie kann ich alle Einträge aus einer Listbox löschen? Außer den 1ten Eintrag also was kommt nach

edtremotehost.Items.delete(*?*)

[Christian Seehase]

Moin Knotti,

merk' Dir doch einfach den ersten Eintrag in einer Variablen, und lösche dann den Inhalt mit Items.Clear;
Anschliessend fügst Du den Eintrag wieder hinzu.

[Thorben77]

Zitat von Knotti2005:

Außer den 1ten Eintrag also was kommt nach

Wenn ich das richtig verstanden hab', willst Du alle Listbox-Einträge außer dem ersten löschen:

Delphi-Quellcode:

var
  I: Integer;
begin
  if ListBoxXY.Items.Count > 1 then
    for I := ListBoxXY.Items.Count - 1 downto 1 do
      ListBoxXY.Items.Delete(I);
end;

MfG

Edit: Wo war der rote Kasten?

[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;