詳測 Generics Collections TStack(1): Push、Pop、Peek - 其他功能同 TQueue

unit　Unit1;　
　
interface　
　
uses　
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　
　Dialogs,　StdCtrls;　
　
type　
　TForm1　=　class(TForm)　
　　Button1:　TButton;　
　　procedure　Button1Click(Sender:　TObject);　
　end;　
　
var　
　Form1:　TForm1;　
　
implementation　
　
{$R　*.dfm}　
　
uses　Generics.Collections;　
　
procedure　TForm1.Button1Click(Sender:　TObject);　
var　
　Stack:　TStack<string>;　
　s,str:　string;　
begin　
　Stack　:=　TStack<string>.Create();　
　
　{壓棧}　
　Stack.Push('AAA');　
　Stack.Push('BBB');　
　Stack.Push('CCC');　
　
　str　:=　'';　
　for　s　in　Stack　do　str　:=　str　+　s　+　'　';　
　ShowMessage(str);　{AAA　BBB　CCC　}　
　
　{出棧:　後進的先出}　
　Stack.Pop;　
　
　str　:=　'';　
　for　s　in　Stack　do　str　:=　str　+　s　+　'　';　
　ShowMessage(str);　{AAA　BBB　}　
　
　{下一個將要出棧的...}　
　ShowMessage(Stack.Peek);　{BBB}　
　
　Stack.Free;　
end;　
　
end.