int *a;
int x;    //-----------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//-----------------------------------__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//-----------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  x  ;
  a=new int[x];
  a[x-1]=x;
  Edit1->Text=(IntToStr(a[x-1]));
}
//-----------------------------------    void __fastcall TForm1::FormCreate(TObject *Sender)
{
x=0;
}
//--------------------------------------    void __fastcall TForm1::Button2Click(TObject *Sender)
{
  for (int i=0;iText=Edit2->Text (IntToStr(a[i]));
}

引言: int *a; int x; //----------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //-----------------------------------__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //----------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { x ; a=new int[x];<=== 這個部份每次都分配記憶體給a,卻沒有delet,程式結束會留下很多垃圾喔 a[x-1]=x; Edit1->Text=(IntToStr(a[x-1])); } //----------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { x=0; } //-------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { for (int i=0;iText=Edit2->Text (IntToStr(a[i])); }

 
int *a,*b;
int x;    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  x  ;
  a=new int[x];
  if(x!=1)
    memcpy(a,b,x*sizeof(int));
  a[x-1]=x;
  Edit1->Text=(IntToStr(a[x-1]));
  b = a;
}
//--------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
       for (int i=0;iText=Edit2->Text (IntToStr(a[i]));    }
//--------------------------------------------------------------------