如題 , 以下是走遍所有TreeNode的遞迴的code //取自 ccchen 大大的code procedure TravelAllChild(pNode : TTreeNode ); var i : integer; begin //Here place code to do something for each TreeNode ........ ........ if pNode.HasChildren then for i := 0 to pNode.Count-1 do TravelAllChild( pNode.Item[i]); end; 如何改寫上面的code , 使他可以計算出任意一個TreeNode下面所有的節點數目 function GetChildCount( pNode:TTreeNode):integer; begin .... ..... end;

Hi mike0518tw,    野人獻曝！ < class="code"> procedure TForm1.Button3Click(Sender: TObject); procedure TravelAllChild(var ChildCount : integer;pNode : TTreeNode ); var i : integer; begin Inc(ChildCount); if pNode.HasChildren then begin for i := 0 to pNode.Count-1 do begin TravelAllChild(ChildCount,pNode.Item[i]); end; end; end; function GetChildCount(pNode:TTreeNode):integer; var r : Integer; begin r := 0; if pNode <> Nil then begin TravelAllChild(r,pNode); r := r - 1; //扣除自己本身 end; result := r; end; begin ShowMessage('Find ' IntToStr(GetChildCount(TreeView1.Selected)) ' childnode(s).'); end; ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman