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;

end;
上面的函数可以遍历某个节点下的所有节点。