delphi - 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