注意:同样引用 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()会。