Подсчитайте количество элементов в группе 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 сообщения возвращают структуру LVGROUP, которая имеет cItems элемент, указывающий количество элементов в группе.