delphi treeview 遍历所有子集节点

delphi treeview 遍历所有子集节点

procedure TForm1.BitBtnClick(Sender: TObject);  procedure treeCldnode(Anode: TTreeNode);  var    i: integer;    node: TTreeNode;  begin

    for i := 0 to Anode.Count - 1 do    begin     ShowMessage(Anode.Item[i].Text);      Node := ANode.Item[i];      if (node.Count > 0)   then        treeCldnode(Node);

    end;  end;var  i: integer;  node: TTreeNode;begin  node := TreeView1.Selected;   treeCldnode(node);

end;