treeview选择一个子接点,怎么得到所有父接点啊?

Question

procedure SearchParent(Tree: TTreeView; Root: TTreeNode);
begin
  if tree.Selected =nil then exit;
  if tree.Selected.Parent<>nil then
  begin
    ShowMessage(tree.Selected.Parent.Text);   //父节点
    下面的递归条件怎么写啊
    if 递归条件 then
      searchparent(tree,'写什么啊');
  end;
end;

Answer 1

procedure   SearchParent(Root:   TTreeNode); 
begin 
    if   Root   =nil   then   exit; 
    if   Root.Parent <> nil   then 
    begin 
       ShowMessage(Root.Parent.Text);       //父节点 
        Root:=Root.Parent;
        SearchParent(Root);
    end; 
end;
收分！

Answer 2

还可以不用递归，算法如下：
procedure ShowNodeParent(node: TTreeNode);
begin
  while node<>nil do
  begin
    ShowMessage(node.Text);
    node := node.Parent;
  end;
end;