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上测试通过，下面是图片效果：

for i := 0 to TreeView.Items.count -1 do
Memo.lines.add(TreeView.Items[i].text);