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;