如何一次性删除checklistbox中选中的项目

Question

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
  for i:=CheckListbox1.Items.Count-1 downto 0 do
    if CheckListbox1.Checked[i] then CheckListbox1.Items.Delete(i);
end;

Answer 1

代码修改一下 就可以了：
with CheckListbox1.Items do
begin
  for i:=Count-1 downto 0 do
    if CheckListbox1.Checked[i] then Delete(i)
end;

Answer 2

with CheckListbox1.Items do
begin
  for i:=Count-1 downto 0 do
    if CheckListbox1.Checked[i] then Delete(i)
end;
在我这调试通过啦！！！！！！！！！！！！！！
在我这调试通过啦！！！！！！！！！！！！！！

Answer 3

for i:=checklistbox1.items.count-1 downto 0 do
begin
  if checklistbox1.checked[i] then
  checklistbox1.items.delete(i);
end;
没问题的。

Answer 4

var
i:integer;
begin
  for i:=CheckListbox1.Items.Count-1 downto 0 do
    if CheckListbox1.Checked[i] then CheckListbox1.Items.Delete(i);
end;
没问题的！