listView checked的问题 希望大家帮个忙~

Question

 我这 有2个关于 listView 的问题.希望大家帮个忙~
listView 属性 checkboxes 属性为 ture 
一、如 listView 里有 10条数据 我选择了（checked） 其中 5条 ,怎么样 取 我选择的总行数?
二、如何建立一个按钮 当click时 可以全选 listView 里的数据？

Answer 1

一、判断Checked选择的总行数var 
  i, nCount: Integer;
begin
  nCount := 0;
  for i := 0 to ListView1.Items.Count - 1 do
    if ListView1.Items[i].Checked then
      nCount := nCount + 1;
  ShowMessage(IntToStr(nCount));
end; 
二、全部Checked选中var 
  i: Integer;
begin
  for i := 0 to ListView1.Items.Count - 1 do
    ListView1.Items[i].Checked := True;
end;