Delphi7 について

TTreeView の選択先に子がいるかどうか？

　またその子ノードの総数はどうすればわかるのだろう？

View で画面に表示されていれば数えればわかりそうなものなんだけど　プログラム中で認識するのは
どうすればいいのか？

• こんなプロパティがあった。
  　　

  HasChildren	:=	True;	子　下位ノードがある。
  		False;	下位ノードなし。
  Count	n	integer	下位ノード　数

• これで判断できる。　Count は 直下位　の子の数だけを保持している。
  そうすると　子孫すべての数を調べるには　どうするのだろう？
  Ｉｔｅｍ　で　子にアクセス出来るようです。
  

  まずは直下の子ノードにアクセスするには

  for i := 0 to Count - 1 do Item[i]

  
  一段正展開　つまり　自分の直下の　子の数だけを取得する関数を作り、それをそれぞれの子に対して呼び出す。
  

  {****************************************** ** 選択されたノード以下のすべてのノード数 ** を求めるには? ** *******************************************} procedure TForm1.Button14Click(Sender: TObject); begin if TreeView1.Selected <> nil then Label10.Caption := format('%d', [Count_Under_Node( TreeView1.Selected)]) else Label10.Caption :='選択なし'; end;	ここはただボタンを押した時に選択されて 　　いるかどうかを調べて　何も選択されてなければ 　　メッセージを表示するだけ 　　選択されていれば、そのノード以下を計算。
  {****************************************** ** Node 以下の子の全数量を計算 ** 　　再帰呼び出し ** *******************************************} function TForm1.Count_Under_node( Node : TTreeNode):integer; var i , all_count : integer; begin all_Count := Node.Count; with Node do if HasChildren then for i := 0 to Count - 1 do all_Count := all_Count + Count_Under_Node(Item[i]); result := all_Count; end;	親 .count = 3 　子1.count = 2 　　　孫1.count = 2 　　　　　曾孫1.count = 0 　　　　　曾孫2.count = 0 　　　孫2.count = 0 　子2.count = 0 　子3.count = 0　 とこんな計算。　つまりこれで 順番 1 2 3 4 5 6 7 8 レベル 0 1 2 3 3 2 1 1 ノード 親　 子1 孫1 曾孫1 曾孫2 孫2 子2 子3 子数量 +3 +2 +2 +0 +0 +0 +0 +0

• 簡単に出来た。　が、まだまだ奥が深いなぁ　なるべく簡単な形で調べたほうがよくわかる。

• 参考文献　:　　

2006/03/05 start ********* Last Update 2006/10/10 16:58 JST