一個遞歸小函數，用於組合樹控件的文本

一個遞歸小函數，用於組合樹控件的文本
  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;