统计TListview组中的项目数

Question

当我尝试统计组中的项目数时，我得到了该集合中的项目总数。你如何得到每个组的项目数量？

Answer 1

这可能是最简单的方法。

procedure TForm1.Click(Sender: TObject); 
begin 
    ShowMessage(IntToStr(GetNumItemsInGroup(1))); 
end; 

function TForm1.GetNumItemsInGroup(const GroupID: integer): integer; 
var 
    i: Integer; 
begin 
    result := 0; 
    assert((GroupID >= 0) and (GroupID <= ListView1.Groups.Count - 1)); 
    for i := 0 to ListView1.Items.Count - 1 do 
    if ListView1.Items.Item[i].GroupID = GroupID then 
     inc(result); 
end; 

Answer 2

在Vista和后止，LVM_GETGROUPINFO和LVM_GETGROUPINFOBYINDEX消息返回具有cItems部件指定所述组中的项的数目的LVGROUP结构。