Delphi TList 使用范例

Delphi TList 使用范例

TList包含对象指针列表。 
Tlist用于存储和维护对象列表。TList引入属隆和方法以执行以下操作： 
(1)在列表中增加或删除对象。 
(2)在列表中重排对象。 
(3)在列表中定位和获得对象。 
(4)在列表中对对象进行排序。 
属性列表 
Capacity 标识TList对象维护的指针数组的大小。 
Count 表明在列表中使用的项的数量。 
Items 列出对象的引用。 
List 标识组成Items的指针数组。 
方法列表 
~TList 删除与TList对象有关的内存。 
Add 在列表的末尾插入有关的内存。 
Clear 从列表中删除所有项。 
Delete 删除Index参数标识的项。 
Error 产生EListError异常。 
Exchange 交换Items数组中两项的位置。 
Expand 增加列表的Capacity。 
First 返回Items[0]。 
IndexOf 返回Items数组中一指针的索引。 
Insert 增加一对象至Items数组中。 
Last 返回Items[Count-1]。 
Move 在Items数组中改变某一项的位置。 
Pack 从Items数组中删除所有的零项。 
Remove 从Items数组中删除Items参数的第一个引用。 
Sort 在列表中执行QuickSort。 
TList 创建一个新的TList对象。

 

现在，让我们用一个例子来结束我对Delphi的List的介绍。这个例子是一个管理人员信息的程序。不过因为这只是一个示例，所以这个程序只是一个简单的ConsoleApplication。使用Console Application来做示例程序可以免掉一些界面设计的工作。这个程序通过Index来管理人员信息。人员信息包括Name、Telephone和Address。程序通过TstringList来读取人员信息文件，然后用那些指向Record的指针把信息存放在TList里并修改。代码如下：
程序代码
program Info

{$APPTYPE CONSOLE}
uses
SysUtils, Classes;
type
PInfo=^TInfo;
TInfo=record
Name:String;
Tel:String;
Address:String;
end;

var
SL:TstringList;
List:TList;
AppPath:String;

{ 开辟一个新的PInfo 指针，填入信息并返回指针将在Command_Delete 或FinaInfo 里释放 }
function MakeInfo(Name,Tel,Address:String):PInfo;
var P:PInfo;
begin
New(P);
P^.Name:=Name;
P^.Tel:=Tel;
P^.Address:=Address;
{ 返回的指针将被保存在List 里 }
result:=P;
end;
{ 在屏幕上打印所有可用的命令 }
procedure PrintMenu;
begin
writeln(\'======菜单======\');
writeln(\'V---- 查看所有人员的信息\');
writeln(\'A---- 增添新的人员信息\');
writeln(\'D----删除人员\');
writeln(\'E---- 修改人员信息\');
writeln(\'M---- 查看所有可用命令\');
writeln(\'X----退出程序\');
end;
{ 修改人员信息的程序 }
procedure Command_Edit;
var I:Integer;
Name,Tel,Address:String;
P:PInfo;
begin
write(\' 请输入要修改的人员信息的序号：\');
readln(I);
if(I<0)or(I>=List.Count)then
writeln(\' 输入超出范围。\')
else
begin
{ 取得某个人员信息的指针 }
P:=List.Items;
writeln(\' 开始输入人员信息（若某项信息不需要修改则留
空）：\');
write(\' 姓名：\');
readln(Name);
write(\' 电话号码：\');
readln(Tel);
write(\' 地址：\');
readln(Address);

{ 保存输入的信息 }
if Name<>\'\' then P^.Name:=Name;
if Tel<>\'\' then P^.Tel:=Tel;
if Address<>\'\' then P^.Address:=Address;
writeln(\' 修改人员信息执行完毕。\');
end;
end;

{ 增加人员信息的程序 }
procedure Command_Add;
var Name,Tel,Address:String;
begin
writeln(\' 开始输入人员信息：\');
write(\' 姓名：\');
readln(Name);
write(\' 电话号码：\');
readln(Tel);
write(\' 地址：\');
readln(Address);
{ 使用MakeInfo 生成TInfo 的指针
并加入Tlist 中 }
List.Add(MakeInfo(Name,Tel,Address));
writeln(\' 增加人员信息执行完毕。\');
end;
{ 打印所有人员信息的程序 }
procedure Command_View;
var I:Integer;
P:PInfo;
begin
writeln(\' 人员信息列表：\');
for I:=0 to List.Count-1 do
begin
P:=List.Items;
writeln(IntToStr(I)+\'号===================\');
writeln(\'姓名：\'+P^.Name);
writeln(\'电话：\'+P^.Tel);
writeln(\'地址：\'+P^.Address);
{ 满六个就暂停，刚好填满一个屏幕 }
if I mod 6=5 then
begin
writeln(\' 请按回车键继续。\');
readln;
end;
end;
writeln;
end;
{ 删除人员信息的程序 }
procedure Command_Delete;
var I:Integer;
P:PInfo;
begin
write(\' 请输入要删除的人员信息的序号：\');
readln(I);

if(I<0)or(I>=List.Count)then
writeln(\' 输入超出范围。\')
else
begin
P:=List.Items;
List.Delete(I);

Dispose(P);
writeln(\' 删除执行完毕。\');
writeln;
end;
end;
{ 处理用户输入的命令 }
function GetCommand:Boolean;
{ 返回False 表示退出 }
var C:Char;
begin
write(\' 输入命令并回车：\');
readln(C);
result:=True;
case C of
\'V\',\'v\':Command_View;
\'A\',\'a\':Command_Add;
\'D\',\'d\':Command_Delete;
\'M\',\'m\':PrintMenu;
\'X\',\'x\':result:=False;
\'E\',\'e\':Command_Edit;
else writeln(\' 未知命令。\');
end;
end;
{ 从Info.txt 把人员信息加载入Tlist }
procedure LoadInfo;
var I:Integer;
Name,Tel,Address,Index:String;
begin
SL.LoadFromFile(AppPath+\'Info.txt\');
for I:=0 to SL.Count div 3-1 do
begin
Index:=IntToStr(I)+\'.\';
{ 文件格式：Index.Field=Value
在这里使用Index.X 区别不同序号的人员信息的字段名称
然后通过Values 属性读取信息 }
Name:=SL.Values[Index+\'Name\'];
Tel:=SL.Values[Index+\'Tel\'];
Address:=SL.Values[Index+\'Address\'];
List.Add(MakeInfo(Name,Tel,Address));
end;
end;
{ 把TList 里的人员信息保存到Info.txt }
procedure SaveInfo;
var I:Integer;
P:PInfo;
begin
SL.Clear;{ 清空TstringList }
for I:=0 to List.Count-1 do
begin
P:=List.Items;
SL.Add(IntToStr(I)+\'.Name=\'+P^.Name);
SL.Add(IntToStr(I)+\'.Tel=\'+P^.Tel);
SL.Add(IntToStr(I)+\'.Address=\'+P^.Address);
end;
SL.SaveToFile(AppPath+\'Info.txt\');
end;
{ 初始化程序 }
procedure InitInfo;
begin
SL:=TstringList.Create;
List:=TList.Create;
{ 获得本程序所在的路径 }
AppPath:=ExtractFilePath(ParamStr(0));
end;
{ 清空程序使用的内存 }
procedure FinaInfo;
var I:Integer;
begin
for I:=0 to List.Count-1 do
Dispose(PInfo(List.Items));
List.Free;
SL.Free;
end;
begin
{ TODO -oUser -cConsole Main : Insert code here }
InitInfo;
LoadInfo;
writeln(\'Information Editor V1.0 by VCZH\');
PrintMenu;
while GetCommand do;{ 循环直到返回False }
SaveInfo;
FinaInfo;
writeln(\' 谢谢使用。请按回车键退出程序。\');
readln;
end.

在循环开始时，I 的值被指向0，然后Index的值就变成“0.”。在执行Name:=SL.Values[Index+\'Name\']时，就等于执行Name:=SL.Values[\'0.Name\']于是， “0.Name”这个字段的内容就被读取，然后Name 就变成了“vczh ”。接着进入下一个循环。程序就是通过在字段前加“Index.”这样的方法区别不同人员的信息。在读取完一个人的信息后，程序执行List.Add(MakeInfo(Name,Tel,Address))，信息便存放在List里了。程序通过操作List 增加、删除或修改人员信息。在用户退出程序时，程序将List里的所有信息保存在“Info.txt”里。过程是这样的：程序先清空SL 里的内容，然后按照Info.txt原来的文件格式填写信息。因为Info.txt里的人员数目是会改变的，因此便不能使用TstringList.Values属性修改，而必须在清空TstringList后手动构建字段并填写信息。

 

Info.txt 的内容如下
0.Name=vczh
0.Tel=1234567
0.Address=Jupiter
1.Name= 陈梓瀚
1.Tel=8888888
1.Address=Venus
2.Name=chenzihan
2.Tel=9999999
2.Address=Mars
3.Name=Victor
3.Tel=0000000
3.Address=Saturn
经过这样的介绍，大家对Delphi 包含的与List,有相似性质的类都有了一定的认识。Delphi VCL 开发组为我们准备了这么多既实用又有效率的功能。而List在庞大的Delphi VCL 里只是沧海一粟。