一个C++builder程序问题多多，但不知错在哪里啊！！

Question

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
class fly_shape{
private :
int x;int y;int speed;int status;TShape *obj;
public:
fly_shape(TComponent*AOwner,int x1,int y1,int sp):x(x1),
y(y1),speed(sp)
{
obj=new TShape(AOwner);
obj->Left=x;
obj->Top=y;
obj->Width=30;
obj->Height=30;
if(sp>30)
{
obj->Brush->Color=clPurple;
}
else
{
obj->Shape=stCircle;
status=0;
}
void active()

{ status=1;
obj->Parent=Form1;
}
void move()
{
if(status==1)
{
obj->Top-=speed;
if(obj->Top<0)
{
obj->Top=y;
}
}
} ;

}
//---------------------------------------------------------------------------
fly_shap*obj1[20];
void __fastcall TForm1::FormActivate(TObject *Sender)
{
randomize();
for(int i=0;i<20;i++)
{obj1[i]=new fly_shape(Form1,150+random(250),300,random(40)+10);

)
}
//---------------------------------------------------------------------------

int count=0;
void _fastcall TForm1::Timer1Timer(Tobject *Sender)
{
if(count<20)
{obj1[count]->active();
count++;
}
for(int i=0;i<20;i++)
{obj1[i]->move();}

}

//---------------------------------------------------------------------------
本来是想做一个随机产生不断上移的组件，但是编译失败。
[我搞了好久，但是不知道哪里错了，其实这只是一条例题，很多都是按照书上说的做的，但还是不知道哪里出错了，希望高手多多指教，谢谢！！！
提示的前面几条错误：
[C++ Error] Unit002.cpp(34): E2141 Declaration syntax error
[C++ Error] Unit002.cpp(49): E2139 Declaration missing ;
[C++ Error] Unit002.cpp(59): E2141 Declaration syntax error
[C++ Error] Unit002.cpp(64): E2451 Undefined symbol 'obj1'

Answer 1

你这个程序的语法完全错了，我给你改了一下
BCB不支持内部类的，所以不能在一个过程里声明类
而且for语句的结构也不对

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}

class fly_shape
{
private :
int x;
int y;
int speed;
int status;
TShape *obj;
public:
fly_shape(TComponent*AOwner,int x1,int y1,int sp):x(x1),y(y1),speed(sp)
{
obj=new TShape(AOwner);
obj->Left=x;
obj->Top=y;
obj->Width=30;
obj->Height=30;
if(sp>30)
{
obj->Brush->Color=clPurple;
}
else
{
obj->Shape=stCircle;
status=0;
}
}
void active()
{
status=1;
obj->Parent=Form1;
}
void move()
{
if(status==1)
{
obj->Top-=speed;
if(obj->Top<0)
{
obj->Top=y;
}
}
}

};

//---------------------------------------------------------------------------

fly_shape *obj1[20];

void __fastcall TForm1::FormActivate(TObject *Sender)
{
randomize();
for(int i=0;i<20;i++)
{
obj1[i]=new fly_shape(Form1,150+random(250),300,random(40)+10);
}
}
//---------------------------------------------------------------------------
int count=0;
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(count<20)
{
obj1[count]->active();
count++;
}
for(int i=0;i<20;i++)
{
obj1[i]->move();
}

}
//---------------------------------------------------------------------------

Answer 2

提示什么错误,拣最前面的几条说就好了