关于遍历树中某个结点下的所有结点的算法 ( 积分: 50 )

求获得树中某个结点下的所有结点的算法!

procedure&nbsp;TfrmPermDesigner.AllOverTreeView(ATreeNode:&nbsp;TTreeNode);<br>begin<br>&nbsp;&nbsp;while&nbsp;ATreeNode&nbsp;&lt;&gt;&nbsp;nil&nbsp;do<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;//在此插入遍历处理代码.<br><br>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;ATreeNode.HasChildren&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ATreeNode&nbsp;:=&nbsp;ATreeNode.getFirstChild;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AllOverTreeView(ATreeNode);<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ATreeNode&nbsp;:=&nbsp;ATreeNode.Parent;<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;ATreeNode.getNextSibling&nbsp;&lt;&gt;&nbsp;nil&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ATreeNode&nbsp;:=&nbsp;ATreeNode.getNextSibling<br>&nbsp;&nbsp;&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit;<br>&nbsp;&nbsp;end;<br>end;

递归