TList 类 1

看了这里标题，大家可能以为我会谈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=1Name=VczhPositionID=8Tel=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 然后，建立一个窗体。如图所示：并在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); beginClose; 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);beginend;留着一个空的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}usesSysUtils, Classes;typePInfo=^TInfo;TInfo=recordName:String;Tel:String;Address:String;end;varSL:TstringList;List:TList;AppPath:String;{ 开辟一个新的PInfo 指针，填入信息并返回指针将在Command_Delete 或FinaInfo 里释放 }function MakeInfo(Name,Tel,Address:String):PInfo;var P:PInfo;beginNew(P);P^.Name:=Name;P^.Tel:=Tel;P^.Address:=Address;{ 返回的指针将被保存在List 里 }result:=P;end;{ 在屏幕上打印所有可用的命令 }procedure PrintMenu;beginwriteln(\'======菜单======\');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;beginwrite(\' 请输入要修改的人员信息的序号：\');readln(I);if(I<0)or(I>=List.Count)thenwriteln(\' 输入超出范围。\')elsebegin{ 取得某个人员信息的指针 }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;beginwriteln(\' 开始输入人员信息：\');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;beginwriteln(\' 人员信息列表：\');for I:=0 to List.Count-1 dobeginP:=List.Items;writeln(IntToStr(I)+\'号===================\');writeln(\'姓名：\'+P^.Name);writeln(\'电话：\'+P^.Tel);writeln(\'地址：\'+P^.Address);{ 满六个就暂停，刚好填满一个屏幕 }if I mod 6=5 thenbeginwriteln(\' 请按回车键继续。\');readln;end;end;writeln;end;{ 删除人员信息的程序 }procedure Command_Delete;var I:Integer;P:PInfo;beginwrite(\' 请输入要删除的人员信息的序号：\');readln(I);if(I<0)or(I>=List.Count)thenwriteln(\' 输入超出范围。\')elsebeginP:=List.Items;List.Delete(I);Dispose(P);writeln(\' 删除执行完毕。\');writeln;end;end;{ 处理用户输入的命令 }function GetCommand:Boolean;{ 返回False 表示退出 }var C:Char;beginwrite(\' 输入命令并回车：\');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;beginSL.LoadFromFile(AppPath+\'Info.txt\');for I:=0 to SL.Count div 3-1 dobeginIndex:=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;beginSL.Clear;{ 清空TstringList }for I:=0 to List.Count-1 dobeginP:=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;beginSL:=TstringList.Create;List:=TList.Create;{ 获得本程序所在的路径 }AppPath:=ExtractFilePath(ParamStr(0));end;{ 清空程序使用的内存 }procedure FinaInfo;var I:Integer;beginfor I:=0 to List.Count-1 doDispose(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=vczh0.Tel=12345670.Address=Jupiter1.Name= 陈梓瀚1.Tel=88888881.Address=Venus2.Name=chenzihan2.Tel=99999992.Address=Mars3.Name=Victor3.Tel=00000003.Address=Saturn经过这样的介绍，大家对Delphi 包含的与List,有相似性质的类都有了一定的认识。Delphi VCL 开发组为我们准备了这么多既实用又有效率的功能。而List在庞大的Delphi VCL 里只是沧海一粟。所以我们今后应当继续研究Delphi VCL，充分利用 VCL，为自己的项目增添光辉