尊敬的高手，这几个函数怎么写？

Question

initiate(L)  将一线性表初始化。
Get(L,i)     取表中的第 i 个元素。（函数）
Locate(l,x)  确定表中值为x的元素的位置。（函数）
Next(L,elm)  的作用是把 p 移到其后继结点
empty(L)     若L为空表，则返回布尔值true，否则返回布尔值false
clear(L)     清空表小人正在看线性表，想用Delphi的控制台程序练习数据结构可是书上说的这几个函数没有，该怎么写这几个函数呢？谢谢大家

Answer 1

用Delphi的 TList 类，可以实现你上面所提的基本上所有的要求。

Answer 2

高手阿，能不能详细一些啊？
怎么调用TList类阿

Answer 3

定义： Var List:TList;
创建： List:=TList.create;
销毁： List.Free;
添加:  List.add(p:Pointer);
删除： List.Delete(index:integer);
查找： List.IndexOf(Item:Pointer); 返回整数数型第几条记录。0为第一条。
清空： List.Clear;
访问第i条记录： List.Items[i]；返回值为第i条的指针；
注意事项：如果你的元素为指针的话，需要自己申请内存，并且在删除和清空的时候手工释放内存。