如何得到TREEVIEW一个节点下的所有子节点

Question

tvDblClick(Sender: TObject); 
begin 
    // 这里怎么处理 
end;我是用别人的方法使用XML控件内容生成树的如何在树的双击事件中，得到该节点下子节点的内容，并且统计子接点内容希望大虾们写的详细点
谢谢

Answer 1

var
  level: integer;
  node: TTreeNode;
  tmp: string;
begin
  if TreeView1.Selected=nil then exit;
  level := TreeView1.Selected.Level;
  node := TreeView1.Selected.getFirstChild;
  tmp  := '';
  while (node<>nil) and (node.Level>level) do      //到了树最后一个节点或者选择的同层节点，则结束
  begin
    tmp := tmp+'node:'+node.Text;                  //取节点内容
    node := node.GetNext;                          //下一个节点
  end;
  ShowMessage(tmp);
end;

Answer 2

{列出当前选中节点下的一级子节点}
procedure TForm1.Button1Click(Sender: TObject);
var
  I : integer;
begin
  with Self.TreeView1.Selected do
    for I := 0 to Count-1 do
      Memo1.Lines.Add(Item[I].Text);
end;
{如果子节点下还有孙节点，道理也是一样的}