Twenty-four. Details on Generics collections tstack (1): Push, pop, and peek-other functions are the same as those of 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 );
Private
{Private Declarations}
Public
{Public declarations}
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;
// Press the stack
Stack. Push ('aaa ');
Stack. Push ('bbb ');
Stack. Push ('ccc ');
STR: = '';
For s in stack do STR: = STR + S + '';
Showmessage (STR); // aaa bbb ccc
// The output stack.
Stack. Pop;
STR: = '';
For s in stack do STR: = STR + S + '';
Showmessage (STR); // aaa bbb
// The next stack to be output
Showmessage (stack. Peek); // bbb
Stack. Free;
End;

End.