delphi中如何构造链表？？

[wisedeep]

各位高手：
delphi中如何构造链表？？
请赐教！！

[zhxfzhxf1]

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

[墨梅无痕]

有两种方法：
（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;

[czzw]

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