Tlist （Classes.pas）
在我刚开始接触TList的时候，TList搞得我迷雾重重，都是Capacity属性惹的祸。我查了Delphi的帮助，它说Capacity是TList的最大容量，又在什么地方说
MaxInt div 4是TList的最大容量。最后我搞明白了，Capacity是临时的，MaxInt div 4才是真正的最大容量。只要你的内存受得了就行，算起来一共是4G。
在TList 内部有一个FList指针指向一个Pointer数组，Capacity就是这个数组的大小。奇怪的是Capacity是可写的。我当时就在想，如果一直使用Add 直到超出了
Capacity的范围，会怎么样呢？为了解决这个问题，我特地打开了TList 的代码，结果发现如下几行（注释是我自己加的）：
function TList.Add(Item: Pointer): Integer;
begin
Result := FCount; { 返回Item 所在的位置}
{ 如果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。
