Queue(队列的使用)
注意:同样引用 Contnrs
--------------------------
procedure TForm1.Button3Click(Sender: TObject);
var a:TQueue;
s1,s2:string;
p:^string;
begin
a:=TQueue.Create;
s1:='Hello';
s2:='Word';
a.Push(@s1);
a.Push(@s2);
p:=a.Peek;
ShowMessage(p^);
//弹出同样用pop,Stack,Queue,也只能放同一种数据类型,TQueue与TStack的类型由第一个
//压入的元素类型决定 Queue是选进先出,出口入口在二端,Stack先进后出,出口入口在同一端
// <--Queue出口-----------------------<--Queue入口--
// ------------------------------->Stack出口----------<--Stack入口
end;
posted on 2008-12-15 13:53 DoubleCat 阅读(1745) 评论(0) 编辑 收藏 举报