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;

转载于:https://www.cnblogs.com/28088191/archive/2008/12/15/1355281.html