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;
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。