<br />//---------------------------------------------------------------------------<br /><br />#include <vcl.h><br />#pragma hdrstop<br /><br />#include "Unit1.h"<br />//---------------------------------------------------------------------------<br />#pragma package(smart_init)<br />#pragma resource "*.dfm"<br />TForm1 *Form1;<br />//---------------------------------------------------------------------------<br />__fastcall TForm1::TForm1(TComponent* Owner)<br /> : TForm(Owner)<br />{<br />}<br />//---------------------------------------------------------------------------<br /><br />void __fastcall TForm1::Button1Click(TObject *Sender)<br />{<br /> int intArray[20]={ 0,5,2,3,4,1,1,5,2,3,<br /> 5,4,2,1,5,2,3,4,1,2};<br /> for(int i=0;i<20;i++)<br /> {<br /> mIntStack.push(intArray[i]);<br /> }<br />}<br />//---------------------------------------------------------------------------<br />void __fastcall TForm1::Button2Click(TObject *Sender)<br />{<br /> while(!mIntStack.empty())<br /> {<br /> OutString.sprintf("%d",mIntStack.top());<br /> Memo1->Lines->Add(OutString);<br /> mIntStack.pop();<br /> }<br />}<br />//---------------------------------------------------------------------------<br />void __fastcall TForm1::Button3Click(TObject *Sender)<br />{<br /> mFloatStack=mIntStack;<br />}<br />//---------------------------------------------------------------------------<br />void __fastcall TForm1::Button4Click(TObject *Sender)<br />{<br /> float floatArray[20]={ 1.5,2.1,3.4,4.1,5.2,2.3,4.0,1.1,2.1,4.0,<br /> 2.1,3.2,4.1,5.5,4.1,4.5,5.7,0.9,1.5,2.3};<br /><br /> for(int i=0;i<20;i++)<br /> {<br /> mFloatStack.push(floatArray[i]);<br /> }<br />}<br />//---------------------------------------------------------------------------<br />void __fastcall TForm1::Button5Click(TObject *Sender)<br />{<br /> while(!mFloatStack.empty())<br /> {<br /> OutString.sprintf("%f",mFloatStack.top());<br /> Memo1->Lines->Add(OutString);<br /> mIntStack.pop();<br /> }<br />}<br />//---------------------------------------------------------------------------<br /><br />void __fastcall TForm1::Button6Click(TObject *Sender)<br />{<br /> mIntStack=mFloatStack;<br />}<br />//---------------------------------------------------------------------------<br /><br />void __fastcall TForm1::FormCreate(TObject *Sender)<br />{<br /><br />}<br />//---------------------------------------------------------------------------<br />