class     conditions
{
 public:
 float  Number;
 float  Number1;
};    conditions *pCondition=new conditions *[number];

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int i;
  String a;      // 動態產生十組
  conditions *pCondition=new conditions [10];      // 各別放入資料
  for (i=0;i<10;i  )
    {
    pCondition[i].Number = i;
    pCondition[i].Number1 = i 1;
    }      // 顯示資料
  for (i=0;i<10;i  )
    {
    a = "i = " IntToStr(i) " ==> ";
    Form1->Canvas->TextOutA(0,20*i,a);
    Form1->Canvas->TextOutA(60,20*i,pCondition[i].Number);
    Form1->Canvas->TextOutA(80,20*i,pCondition[i].Number1);
    }
}