Zitat von
Pfoto:
Hi!
ich würde es so machen:
Delphi-Quellcode:
var
i: integer;
begin
i:= 0;
repeat
If Listbox1.Selected[i] then
Listbox1.Items.Delete(i) else
inc(i);
until (i = Listbox1.items.count);
Gruß
Pfoto
So würde es auch gehen, allerding möchte er ja nicht alle löschen
until (i = Listbox1.SelCount-1