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);