把Lisview里CheckBoxs被选中的条目全删除，怎么办？

Question

希望大家能贴出点代码，谢谢！！！

Answer 1

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

Answer 2

var
 i:integer;
begin
 for i:=0 to listbox1.items.count-1 do
 begin
  if listbox1.checked then
  begin
   listbox1.items[i].delete;
   i:=i-1;
  end;
 end;
end;

Answer 3

if listitem1.checked=true then
  listitem1.delete;

Answer 4

for i:=ListView1.Items.Count-1 downto 0 do
  begin
     if ListView1.Items[i].Checked  then
        ListView1.Items.Delete(i);
  end;re ： chilli7811(chilli) 
试验过？你的方法不出错吗？

Answer 5

谁叫你的题目是lisview.
用循环，如果是Checked的就删了。