Стеки. Динамические структуры.

struct Elem{
   int d;
   Elem *next;
};
 
 
void print(){
   Form1->Memo1->Clear();
   Elem *c=root;
   while(c!=0){
      Form1->Memo1->Lines->Add(IntToStr(c->d));
      c=c->next;
   }
}
 
 
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
print();
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
 
 
 
#include "Unit1.h"
struct Elem{
   //AnsiString gorod;
   int d;
   Elem *next;
};
 
Elem *root=0;
//AnsiString S,
void add(int x){
  Elem *c=new Elem;
   c->d=x;
   c->next=root;
 
   root=c;
}
 
 
 
void del(){
   Elem *c=root;
   root=root->next;
   delete c;
}
 
 
 
void print(){
   Form1->Memo1->Clear();
   Elem *c=root;
   while(c!=0){
      Form1->Memo1->Lines->Add(IntToStr(c->d));
      c=c->next;
   }
}
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
 
 
 
 
 
 
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
add(StrToInt(Edit1->Text));
Edit1->Clear();
Edit2->Clear();       
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
del();
//print();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
print();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
while(root!=0)del();
 
Memo1->Clear();
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------