Delphi TreeView遍历所有节点问题

Delphi TreeView遍历所有节点问题
遍历出TREEVIEW的所有完整的节点名称
请出能实现这个功能的有效代码

 

 

procedure aa(s:string;aItem:TTreeNode);

var

  node:TTreeNode;

  str:string;

begin

  node:=aItem;

  while node<>nil do begin

    if s='' then str:=node.Text else str:=s+'\'+node.Text;

    form1.ListBox1.Items.Add(str);

    if node.HasChildren then aa(str,node.getFirstChild);

    node:=node.getNextSibling;

  end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  aa('',TreeView1.Items.GetFirstNode);

end;

在百delphi xe5上测试通度过，知下面是图道片效回果：