Delphi容器类之---TOrderedList、TStack、TQueue、TObjectStack、TObjectQueue

TOrderedList、TStack、TQueue

Contnrs单元还定义了其他三个类：TOrderedList、TStack、TQueue

TOrderedList

TOrderedList =  class (TObject)
private
     FList: TList;
protected
     procedure  PushItem(AItem:  Pointer ); virtual; abstract;
     ...
public
     function  Count:  Integer ;
     function  AtLeast(ACount:  Integer ):  Boolean ;
     procedure  Push(AItem:  Pointer );
     function  Pop:  Pointer ;
     function  Peek:  Pointer ;
end ;

TStack

TStack =  class (TOrderedList)
protected
     procedure  PushItem(AItem:  Pointer ); override;
end ;

TQueue

TQueue =  class (TOrderedList)
protected
     procedure  PushItem(AItem:  Pointer ); override;
end ;

要注意，虽然TOrderedList并不是从TList继承的，但是它在内部的实现时，使用了TList来存储指针。另外注意TOrderedList类的 PushItem过程是一个抽象过程，所以我们无法实例化TOrderList 类，而应该从TOrderList继承新的类，并实现抽象的PushItem 方法。

因此TStack、TQueue继承自TOrderedList，所以TStack、TQueue的指针也是存在其内部的TList中的。

TStack和TQueue正是实现了PushItem 抽象方法的类，我们可以实例化TStack和TQueue类作为后进先出的堆栈（LIFO）和先进先出的队列（FIFO）。下面是这两个类的方法的使用说明：

Count　　返回列表中的项目数。
AtLeast　　可以用来检检查链表的大小，判断当前列表中的指针数目是否大于传递的参数值，如果为True便是列表中的项目数大于传来的参数。
Push　　对于TStack类，Push方法将指针添加到链表的最后，对于TQueue类，Push方法则将指针插入到链表的开始。
Pop　　返回链表的末端指针，并将其从链表中删除。
Peek　　返回链表的末端指针，但是不将其从链表中删除。

TObjectStack、TObjectQueue

Contnrs单元中最后两个类是TObjectStack和TObjectQueue类，类的定义如下

TObjectStack

TObjectStack =  class (TStack)
public
     procedure  Push(AObject: TObject);
     function  Pop: TObject;
     function  Peek: TObject;
end ;

TObjectQueue

TObjectQueue =  class (TQueue)
public
     procedure  Push(AObject: TObject);
     function  Pop: TObject;
     function  Peek: TObject;
end ;

这两个类只是TStack和TQueue 类的简单扩展，在链表中保存的是TObject的对象引用，而不是简单的指针。