ListBox-Items "kontrolliert" löschen

[Bummi]

meinst Du so?

Delphi-Quellcode:

var
ID :integer;
FoundSelected:Boolean;
begin
 FoundSelected :=false;
 for ID:= ListBox1.Items.Count - 1 downto 0 do
    begin
    if ListBox1.Selected[ID] then
      begin
      FoundSelected := true;
      ListBox1.Items.Delete(ID);
      end;
    end;
 if not FoundSelected then ListBox1.Items.Delete(ListBox1.Items.Count-1);
end;