TQueue,TStack
uses
Contnrs;
TQueue队列,先进先出
TStack堆栈,后进先出
TObjectQueue = class(TQueue)
public
function Push(AObject: TObject): TObject;
function Pop: TObject;
function Peek: TObject;
end;
TObjectStack = class(TStack)
public
function Push(AObject: TObject): TObject;
function Pop: TObject;
function Peek: TObject;
end;
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/archive/2011/01/15/2940643.html