Delphi 小谈之TList 篇(转)_delphi tlist详解-优快云博客

转至：http://blog.youkuaiyun.com/jqandjq/article/details/5429137

看了这里标题，大家可能以为我会谈TListBox控件，那就错了。我要谈的是Delphi提供给我们的具有列表性质的类：TstringList、TList和TObjectList。TstringList用来存放字符串，TList存放指针，而TObjectList则存放对象(Object)。

　　在我们使用Delphi 的过程中，有很多数据的存储是要靠数组解决的。虽然Delphi现在已经支持了可变数组，不过总有那么点缺陷：我们不能在删除一个项后，使后边的项自动前靠。因此，说说Delphi现成的List还是有价值的。

　　TstringList （Classes.pas）

　　在TstringList里，那些String被一行一行地储存。TstringList.Text返回全部的String。如果第一、二、三行分别是/'aa/'、/'bb/'、/'cc/' 的话，那么Text 返回的是“/'aa/'+#13#10+/'bb/'+#13#10+/'cc/'+#13#10” （不包括双引号）。所有的String都被TstringList用回车和换行符（#13#10）连接了起来。如果依次向Text赋值的话，Text就会被自动地分割成行储存在TstringList 里。这充分地体现出TstringList的一个很实用的价值：它能让我们逐行处理String。假如我们要操作第4行，只需操作TstringList[3]。相信大家会问，TstringList明明是一个类，为什么能当数组那样子用呢？其实，我们在写TstringList[3]的时候，就是在写TstringList.Strings[3]。Strings是TstringList的一个缺省属性。数组性的缺省属性就是这样子使用的。如果大家在编写类的时候要用到这么一个功能的话，可以参照如下方法：

property AProperty[I: Integer] read *** write ***;
default;。
　　Strings 是一个可读写的属性。这也就是说，大家不仅可以获得第N 行的内容，也可以改变第N 行的内容。因此我们需要知道TstringList 里S t r i n g 的总行数。TstringList的属性Count则可以满足我们的需要。

　　上面已经说过，Text是一个返回所有字符串的属性。向Text赋值时，TstringList能够自动地把Text分成一行一行的，然后储存在TstringList里（当然，TstringList里面并不完全是这么储存的，详细过程建议看TstringList和TStrings的代码）。这样，Strings返回的字符串就是没有回车和换行的。但是，如果我们向Strings赋值的字符串有回车和换行，那么会出现什么情况呢？此时，Strings就会把那个字符串断成几行，插入到原来的位置上。如果TstringList只有这么些功能的话，那我就不必专门拿出来讲了——我是说，TstringList能让我们任意地插入或删除某行，这就要用到TstringList提供的方法。

function Add(const S: string): Integer;
procedure Append(const S: string);
Add方法向TstringList的末尾添加一行String（在这里和下面我们都假设输入的字符串没有回车和换行，否则String将被分割）。参数S 代表的是要插入的字符串的内容。Add的返回值代表了新的字符串在TstringList的位置——也就是最后一行的位置，即新的Count 减去一。

Append 方法与Add 唯一不同的地方是没有返回值。
procedure Insert(Index: Integer; const S: string);
Insert方法向TstringList插入一行字符串。在Insert里，我们可以自由地选择字符串插入的位置。参数S 代表要插入的字符串的内容，Index 代表要插入的位置。
procedure Delete(Index: Integer);
Delete 方法删除某行字符串，我们同样可以自由地选择删除任意一行字符串。参数Index代表要删除的那一行字符串的位置。学习笔记
function IndexOf(const S: string): Integer;
IndexOf查找某一字符串在TstringList里的位置。参数S代表要查找的字符串。如果TstringList里不存在S的话，则返回-1。
procedure Move(CurIndex, NewIndex: Integer);
procedure Exchange(Index1, Index2: Integer);
TstringList另外还提供了两个方法—— Move 和Exchange。Move方法能把一行字符串抽出来并插入到另一个指定的位置上。参数CurIndex代表要移动的字符串的位置，NewIndex 代表字符串新的位置。
Exchange方法则能将随便两行字符串交换。参数Index1和Index2代表两行需要交换的字符串的位置。
procedure LoadFromFile(const FileName: string);
procedure SaveToFile(const FileName: string);
TstringList的LoadFromFile和SaveToFile两个方法，使得我们对文本文件的操作变得非常方便。参数FileName 代表目标文本文件的文件名。例如我们在编写记事本的时候，用到的TMemo.Lines 就是TStrings（TstringList的父类，功能几乎相同，只是因为TStrings是虚类，我们无法创建并使用）。在保存的时候只需一行代码：TMemo.Lines.SaveToFile(FileName)，非常方便。
TstringList还有一项特殊功能：可以把TstringList当成ini控制器使用。不过它没有Section。现在我就来介绍TstringList的两个属性：Names和Values。

如果TstringList的内容是这样子的：

ID=1
Name=Vczh
PositionID=8
Tel=00000000

那么，Names[2]就返回“PositionID ”，Values[/'PositionID/']就返回“8”。其中“Names”是只读属性，而“Value”则可写。TstringList使我们不必拘泥于ini和注册表。关于TstringList没有Section这个问题，我们完全可以在Names 里做点手脚，只要程序能够识别就行（文章末尾处的范例里将出现此方法供大家参照）。

TstringList还有一个可以存放Object的功能。但是我个人认为使用TObjectList比较好，因为TObjectList在这方面提供了比TstringList更多的功能。

下面我提供一个例程来介绍Values属性。

新建一个工程保存，并在dpr文件所在的文件夹里建立一个叫做“Config.txt”的文件，并输入以下内容：

Name=VCZH
Address=Somewhere
Email=vczh@163.com

然后，建立一个窗体。如图所示：并在TForm1 的Private 区段里建立一个变量：

SL:TstringList;

这个例程的功能是编辑Config.txt 里的Name 、Address、Email。SL在程序启动时读入Config.txt文件；按下Cancel 按钮则退出；按下OK 按钮则改变SL 的内容并保存在Config.txt文件里；当程序再次运行时，改变后的内容就会显示在三个文本框里。代码如下：

procedure TForm1.FormCreate(Sender: TObject);
begin
SL:=TstringList.Create;
{ 获取当前程序文件所在的文件夹名称以获得C o n f i g . t x t 文件的路径 }
SL.LoadFromFile(ExtractFilePath(ParamStr(0))+/'Config.
txt/');
end;

procedure TForm1.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
SL.Free;
end;

procedure TForm1.btnCancelClick(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
{ 通过上面介绍的V a l u e s 属性获得各个字段的内容 }
edtName.Text:=SL.Values[/'Name/'];
edtAddress.Text:=SL.Values[/'Address/'];
edtEmail.Text:=SL.Values[/'Email/'];
end;

procedure TForm1.btnOKClick(Sender: TObject);
begin
{ 修改各个字段的内容并保存 }
SL.Values[/'Name/']:=edtName.Text;
SL.Values[/'Address/']:=edtAddress.Text;
SL.Values[/'Email/']:=edtEmail.Text;
SL.SaveToFile(ExtractFilePath(ParamStr(0))+/'Config.
txt/');
Close;
end;

程序执行后如图：

-------------------------------------------------------------------------------------

Tlist （Classes.pas）

在我刚开始接触TList的时候，TList搞得我迷雾重重，都是Capacity属性惹的祸。我查了Delphi的帮助，它说Capacity是TList的最大容量，又在什么地方说MaxIntdiv 4是TList的最大容量。最后我搞明白了，Capacity是临时的，MaxInt div 4才是真正的最大容量。只要你的内存受得了就行，算起来一共是4G。在TList 内部有一个FList指针指向一个Pointer数组，Capacity就是这个数组的大小。奇怪的是Capacity是可写的。我当时就在想，如果一直使用Add 直到超出了Capacity的范围，会怎么样呢？为了解决这个问题，我特地打开了TList 的代码，结果发现如下几行（注释是我自己加的）：

function TList.Add(Item: Pointer): Integer;
begin
{ 返回Item 所在的位置 }
Result := FCount;
{ 如果FList 数祖被填满了装不下新的Item

那么TList 自动增加Capacity

也就是FList 指向的数组的大小 }

if Result = FCapacity then
Grow;
{ 扩大了FList 的大小后，就能把 Item 放进数组了 }
FList^[Result] := Item;
Inc(FCount);
if Item <> nil then
Notify(Item, lnAdded);
{ 给TList 一个信号，通知TList 已经加上了一个新的Item }
end;

procedure TList.Grow;
var
Delta: Integer;
begin
{ 增加的规则是，如果数量小于或等于8，那么增加4 ；如果数量在8 之上，小于或等于64 ，那么增加16 ；如果数量比64 还大，那么一次增加大约1/4 的空间 }
if FCapacity > 64 then
Delta := FCapacity div 4
else
if FCapacity > 8 then
Delta := 16
else
Delta := 4;
{ 改变数组大小 }
SetCapacity(FCapacity + Delta);
end;

既然Capacity会自动增加，那么还要Capacity干什么呢？还不如使用链表。不过我后来意识到，在使用链表的时候，取得某个位置的指针比数组困难，要用比较费时间的循环。TList刚好解决了这个问题。我们既可以把TList 当成数组，也可以把它当成链表。

TList 除了保存的对象是指针以外，其它地方都与TstringList很像。所以接下来我只介绍二者不同之处。

我们同样可以使用TList或者TList.Items获得某一位置的指针。如果嫌TList.Items是属性没有效率的话，这里还有一个List属性，指向内部的FList，可以这么用：

TList.List^。
TList提供了First和Last两个属性，分别返回第一个和最后一个指针。
TList 也提供了一个Remove方法。与Delete不同的是，Delete删除的是已知位置的指针，Remove删除的是已知指针。只要TList 包含有你想删除的指针，就可以使用Remove(Pointer)。Remove的返回值是指针在还没有被删除之前的位置。使用方法如下：
procedure Delete(Index: Integer);
function Remove(Item: Pointer): Integer;
TList还有一个Pack方法。它能够把所有不是nil的指针聚在一起，同时把Count 的值改变，这样，所有没用的指针就会被删除，但是并不会减少Capacity。如果你想把没用的空间都释放掉的话，可以把Capacity设置成Count。

最后，我想说的是Protected里的Notify。大家在Add的代码里就能看到，在Insert、Delete之类的代码里我们也能看得到Notify的踪迹。既然FList的内容已经被改变了，Notify 还要做什么工作呢？看一下Notify的代码：学习笔记

TListNotification = (lnAdded, lnExtracted, lnDeleted);
procedure TList.Notify(Ptr: Pointer; Action:
TListNotification);
begin
end;

留着一个空的Notify 有什么用呢？再看它的声明：

procedure Notify(Ptr: Pointer; Action: TListNotification);
virtual;

原来Notify 是一个虚函数，当我们因为有特殊要求而继承TList类的话，只要TList 的内容一改变，我们就能得到通知。不过前提是我们要覆盖N o t i f y 这个Procedure。

-------------------------------------------------------------------------------------

TObjectList （Contnrs.pas）
T O b j e c t L i s t 中有一个不可缺少的属性：OwnsObjects。如果OwnsObjects是True（缺省值）的话，那么TObjectList会在适当的时候把它列表中的Object释放掉。

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

程序代码

program Info[color=#0000ff];
{$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.[/color]

在这个程序测试完毕（由于时间关系，并没有执行严格的测试，所以一些小细节可能会没有注意到，不过不会影响程序功能的正确性）时，Info.txt 的内容如下

在循环开始时，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后手动构建字段并填写信息。

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