怎么取得TREEVIEW节点所在的路径呀？

Question

|--仓库甲
|    |----仓库甲1
|    |----仓库甲2 
|    |----仓库甲3比如我选到仓库甲1
我想得到 仓库甲/仓库甲1       应该怎么写才对呀

Answer 1

function get_node_path(node :ttreenode):string;
var
  path :string;
  parent : ttreenode;
begin
  path := node.text;
  parent := node.parent;
  while parent <> nil do begin
    path := parent.text +'/'+ path;
    parent := parent.parent;
  end;
  result := path;
end;//直接写的，不知有没有错