一个关于ListView的问题

Question

各位高手:
   请问：
     
      设置 ListView:
         checkboxes:=true;
         MultiSelect:=true;
      
   之后，
   1）、如何全部选定所有行，取消全部选定所有行；
   2）、如何通过以将每行前的四方块打勾的方式选中该行。

Answer 1

for I:=0 to ListView1.Items.Count-1 do
  ListView1.Items[I].Selected:=True//Falseif ListView1.Items.Checked then
  ListView1.Items[I].Selected:=True

Answer 2

   1）、如何全部选定所有行，取消全部选定所有行；
     ListView1.SelectAll;
   2）、如何通过以将每行前的四方块打勾的方式选中该行
    if listView1.Items[i].Checked then
      ListView1.Items[i].Selected:= True;

Answer 3

我现在也在做这个东西
 问题是：想删除多个选中的项 listview1.items.delete(i)
      当删除一个项以后 listview1.items.count 的值就变了
    下一个项的时候会变成删除再下一个项
   而且总行数变了以后i  的selected会产生一个错误的消息
  
怎么解决
 

Answer 4

从后向前删除。
for i:=ListView1.Items.Count-1 downto 0 do
listview1.items.delete(i)