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;
上面的函数可以遍历某个节点下的所有节点。