一个递归小函数，用于组合树控件的文本

一个递归小函数，用于组合树控件的文本
  function GetText(node : TTreeNode) : string;
  var
    i,iLeve : integer;
    s,sp : string;
  begin
    if Assigned(node) then
    begin
      s := node.text;
      if Assigned(node.Parent) then
        s := GetText(node.Parent)+'->'+s;
    end;
    Result := s;
  end;