C语言中的链表在Delphi中怎么实现啊？

Question

C语言定义一个链表
struct Node
{
    int Data;
    struct Node * Next;
}
在delphi中定义成
type Node=Record
   Data:Integer;
   Next:^Node;
  end;
这种定义在delphi编译中通不过，该怎么实现该功能啊！！

Answer 1

有两种方法：
（1）Delphi本身有的TList类，它就是一个链表类，你可以继承它来实现你自己链表的功能。
（2）使用传统的方法：
type
  PMyList = ^TMyList;
  TMyList = record
    Data: Integer;
    Ptr: PMyList;
  end;
这是一个自定义链表的类型。
创建结点的链表：
var
  MyList: PMyList;procedure MakeList(AList: PMyList; ALength: Integer);
var
  Header: PMyList;
  i: Integer;
begin
  Header := nil;
  New(AList);
  Header := AList;
  for i := 2 to ALength do
  begin
    New(AList);
    AList^.Ptr := Header;
    Header := AList;
  end;
end;