搜集的函数：获得treeview节点路径

Function   Tmainfrm.NodePath(Value:TTreeNode):String;
begin
      if   Value.Level=0   then
            Result:=Value.Text   + '/ '
      else
            Result:=NodePath(Value.Parent)+Value.Text   + '/ ';
end;