TTreeView读取子节点问题，谢谢赐教

Question

如图比如 我需要读取“二部”下所有没有父节点的子节点，及：“5、6、7、8”四个节点，具体代码如何写？ 谢谢 

Answer 1

没有父节点的子节点？
没有【子】节点的节点 吧
没有【子】节点的节点p的特征：p.count<1
其它的实现应该很简单了

Answer 2

  procedure treeCldnode(Anode: TTreeNode);
  var
    i: integer;
    node: TTreeNode;
  begin
    for i := 0 to Anode.Count - 1 do
    begin
      Node := ANode.Item[i];
      if (node.Count > 0)   then
        treeCldnode(Node)
      else
        memo1.Lines.Add(Anode.Item[i].Text);
    end;
  end;
begin
  treeCldnode(TreeView1.Selected);
end;

Answer 3

有啊：节点.cout<1 就是叶子结点

Answer 4

二部下，哪来没有爷节点的。应该是没有子节点吧，判定一下有没有子点不就好了，HasChildren这个可以判定有没有了节点