delphi中如何构造链表？？

Question

type
 ptec = pointer of trec
 trec = record
   node: string;
   next: ^ptec;
 end;
...
...

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;

Answer 2

Delphi 就是 pascal语言，参照一下数据结构这本书就可以了，例程可以通用，最多就是改一函数名