2011年1月15日
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; 阅读全文
posted @ 2011-01-15 21:47 delphi中间件 阅读(1656) 评论(0) 推荐(0)