请出能实现这个功能的有效代码
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);