TStack and TQueue

注意:同样引用 Contnrs -------------------------

procedure TForm1.Button1Click(Sender: TObject);
var a:TStack;
    s1,s2:string;
    p:^string;
begin
   a:=TStack.Create;
   s1:='Hello';
   s2:='Word';
   a.Push(@s1);
   a.Push(@s2);
  while a.Count <> 0 do
  begin
    p:= a.Pop;
    ShowMessage(p^);
  end;
   //弹出同样用pop,Stack,Queue,也只能放同一种数据类型,TQueue与TStack的类型由第一个
   //压入的元素类型决定      Queue是选进先出,出口入口在二端,Stack先进后出,出口入口在同一端
end;

peek()出栈后不会删除此个元素，而POP()会。