怎样建立一棵任意树？

Question

即树的广度和深度没有限制。

Answer 1

TNode=class(TObject)
private
  FSons: TList;
  FParent: TNode;
  function GetNode(Index: integer): TNode;
public
  property Sons[Index: integer]: TNode read GetNode; default;
  property Parent: TNode read FParent;
  function Add: TNode;
  procedure Delete(Index: integer);
end;我想具体的实现我不必写了吧!

Answer 2

http://expert.csdn.net/Expert/topic/1793/1793955.xml?temp=.2592127这里有很多答案，当然也有我的。