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()會。