treeview 控件双击节点数据，取出该节点数据以及上级节点数据

Question

treeview 控件双击节点数据（不是展开节点），取出该节点数据以及上级节点数据，该如何操作。然后用edit.text接收。
（形如：edit.text:=再上级/上级/该节点数据）

Answer 1

var
  Node: TTreeNode;Node := TreeView.Selected;while Assigned(Node) do
begin
   ... 取当前结点数据
   Node := Node.Parent;
end;

Answer 2

//就是楼上的原理
function TreeNodeString(mTreeNode: TTreeNode; mDelimiter: string = '\'): string;
begin
  Result := '';
  while Assigned(mTreeNode) do begin
    Result := mTreeNode.Text + mDelimiter + Result;
    mTreeNode := mTreeNode.Parent;
  end;
  Delete(Result, Length(Result) - Length(mDelimiter) + 1, MaxInt);
end; { TreeNodeString }//...
  Edit1.Text := TreeNodeString(TreeView1.Selected);