delphi 遍历treeview某个节点下所有节点的函数

原创  delphi 遍历treeview某个节点下所有节点的函数  收藏
function treeallnode(anode:Ttreenode):string;
var
i:integer;
mystr:string;
begin
for i:=0 to anode.Count-1 do
begin
if mystr<>'' then
mystr:=mystr+'|'+trim(trim(anode[i].Text))
else
xxx:=trim(trim(anode[i].Text));
if anode[i].HasChildren then
if mystr<>'' then
mystr:=mystr+'|'+trim(treeallnode(anode[i]))
else
mystr:=trim(treeallnode(anode[i]));
end;
result:=mystr;
e