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的对象引用,而不是简单的指针。
时间: 2024-10-15 20:41:46