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;