如何返回treeview的总条数

Question

例如
员工（100）
  干部（20）
  犯人（80）
括号里的数据是从数据库中计算出来的~

Answer 1

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(tv1.Items.Count)); //tv1为TreeView
end;

Answer 2

欢迎加入Borland DELPHI程序员，参与群里技术讨论！欢迎女孩子，也欢迎男孩子参与技术讨论！群号15154361

Answer 3

for i:=0 to TreeView1.Items.Count-1 do
begin
  if TreeView.Items[i].Parent.Text = '员工' then
    nEmp := nEmp + 1 ;
  if TreeView.Items[i].Parent.Text = '干部' then
    nMan := nMan + 1;
  ...
end;