Use of Stack

To reference: Contnrs

-----------------------

Procedure TForm1.Button1Click (Sender: TObject );

Var a: TStack;
S1, s2: string;
B: ^ string;

Begin
S1: = 'hello ';
S2: = 'word ';
A: = TStack. Create;
A. Push (@ s1 );
A. Push (@ s2 );
B: = a. Peek;
ShowMessage (B ^ );
// Only one data type can be put in the Stack, and the string type is put above
End;

Procedure TForm1.Button2Click (Sender: TObject );
Var
A: TStack;
B, b1: Integer;
Bb: ^ Integer;
Begin
B: = 1;
B1: = 2;
A: = TStack. Create;
A. Push (@ B );
A. Push (@ b1 );
Bb: = a. Peek;
ShowMessage (IntToStr (bb ^ ));
// The Stack contains real numbers.

End;

--------------- ObjectStack -------------------------------------

Procedure TForm1.Button4Click (Sender: TObject );
Var
A: TObjectStack;
S: string;
I: Integer;
Begin
A: = TObjectStack. Create;
S: = 'Hello word ';
I: = 1;
A. Push (@ s );
A. Push (@ I );
// ObjectStack can hold mixed data

End;

-------------------------------------------------------