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.