|
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; |
|
|
