Markierte ListBox-Einträge entfernen

[St.Pauli]

Hi,

wie kann ich nur (!) alle markierten ListBox-Einträge aus der ListBox löschen?


Gruss, St.Pauli

[sakura]

Ungetestet, blind getippt: ListBox1.DeleteSelected; ......

[Aike]

Falls MultiSelect an ist (ungetestet):

Delphi-Quellcode:

i:=Listbox.Count-1;
for i downto 0 do
begin
  Listbox.Items.Delete(i);
end;

[Aenogym]

@aike: das würde aber alles löschen

Aenogym

[Matze]

Zitat von Aike:

Falls MultiSelect an ist[...]

Auch dann geht Sakuras Vorhergehensweise.

[Muetze1]

Moin!

Und für z.B: Delphi 4/5 Nutzer die diese Methode noch nicht haben nochmal zur Vollständigkeit:

MultiSelect:

Delphi-Quellcode:

  For i := ListBox1.Items.Count-1 Do 0 Do
    If ( ListBox1.Selected[i] ) Then
      ListBox1.Items.Delete(i);

kein MultiSelect:

Delphi-Quellcode:

  If ( ListBox1.ItemIndex > -1 ) Then
    ListBox1.Items.Delete(ListBox1.ItemIndex);

MfG
Muetze1