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上测试通度过,知下面是图道片效回果: