问一个关于数据结构的问题

Question

type
  PNode = ^TNode;
  TNode = record
    Info: Real;
    ChildNode: PNode;  //子结点
    NextNode: PNode;   //下一个结点。
  end;
赋值很麻烦，我写不好，看其它人吧.

Answer 1

type
  PLevel4Node = ^TLevel4Node;
  TLevel4Node = record
    Info: String;
    NextNode: PLevel4Node;  //下一个结点。
  end;  PLevel3Node = ^TLevel3Node;
  TLevel3Node = record
    Info: String;
    ChildNode: PLevel4Node;  //子结点
    NextNode: PLevel3Node;  //下一个结点。
  end;  PLevel2Node = ^TLevel2Node;
  TLevel2Node = record
    Info: String;
    ChildNode: PLevel3Node;  //子结点
    NextNode: PLevel2Node;  //下一个结点。
  end;  PLevel1Node = ^TLevel1Node;
  TLevel1Node = record
    Info: String;
    ChildNode: PLevel2Node;  //子结点
    NextNode: PLevel1Node;  //下一个结点。
  end;
var
  i, j, k, l: Integer;
  Root: PLevel1Node;
begin
  for i
    for j
      for k
        for l
          ...
end;