統計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結構。