在BCB中使用VCL控件数组

昨晚和网友邬彦华在OICQ上闲聊，他言及正在为朋友编一个游戏菜单，其中动态创建了一组按纽，最后却无法释放。他的实现方法如下：

　　for (int i=1;i<=ButtonCount;i++)

　　{

　　TSpeedButton *spdBTn=new TSpeedButton(this);

　　spdBtn->Parent=ScrollBox;//指定父控件

　　spdBtn->Caption=IntToStr(i);

　　spdBtn->Width=80;

　　spdBtn->Height=80;

　　spdBtn->OnClick=ButtonClick;

　　spdBtn->Left=intLeft;

　　spdBtn->Top=intTop;

　　spdBtn->GroupIndex=1;

　　spdBtn->Flat=true;

　　intLeft=intLeft+80+intSpace;

　　if (i%LineCount==0)

　　{

　　intTop=intTop+80+intSpace;

　　intLeft=intSpace;

　　}

　　buttons->Add(spdBtn);//buttons是一个TList的指针

　　}

　　最后用TList的Clear()方法无法释放内存，

　　其实Clear()方法只是把List清空，要删除还是得用delete，但是delete运算符必须要有删除的指针，可这种实现方法无法得到指针！所以我就放弃了这种思路，忽然，电光一闪(不是要打雷了，而是我想出办法来了)，能不能用数组呢？说干就干！数组的分配？我想想，对！

　　TSpeedButton *Buttons[]=new TSpeedButton[4](this);

　　可是编译器告诉我：ERROR!

　　TSpeedButton *Buttons[]=new TSpeedButton(this)[4]

　　还是错！最后我利令智昏，把Java的分配方式都拿出来了：

　　TSpeedButton []*Buttons=new TSpeedButton[](this)

　　结果么？不用说也知道！难道没办法了吗？我想起了简单类型的指针数组int x[]={1,2,3};于是就试

　　TSpeedButton *Buttons[]={new TSpeedButton(this),new TSpeedButton(this),new TSpeedButton(this)};

　　居然可以了！我正想自得的笑，忽然发现：假如要定义100个按钮怎么办……打那么一串重复的字谁受得了？就算是用COPY/PARST也难免要数错，究竟100次啊。难道就没法子了？经过苦思冥想，又想起了一个办法，一步一步的来怎么样？

　　TSpeedButton **button=new TButton*[100];

　　for(int i=0;i<100;i++)button[i]=new TSpeedButton(this);

　　哈哈！居然OK!再试试释放：

　　for(int i=0;i<4;i++)delete x[i];

　　delete[]x;

　　哈哈！居然还是OK!于是我就写了一例子：在一个窗口上放两按纽，单击可以显示或关闭动态生成的按钮。

　　首先声明一个全局变量TButton **x;

　　然后在Button1的onClick中加入生成代码：

　　x=new TButton*[4];

　　for(int i=0;i<4;i++)

　　{

　　x[i]=new TButton(this);

　　x[i]->Left=100;

　　x[i]->Top=10+i*30;

　　x[i]->Width=90;

　　x[i]->Height=25;

　　x[i]->Parent=this;

　　x[i]->Caption="按纽"+AnsiString(i);

　　}

　　单击它就可以生成并显示4个按钮，然后在Button2加入释放代码：

　　for(int i=0;i<4;i++)delete x[i];

　　delete[]x;

　　运行一试，OK！大功告成！

　　所以，使用VCL数组的过程是：首先声明一个二重指针，然后分配所要VCL组件的个数，最后再对每个VCL元件进行分配；在释放的时侯，要释放每个VCL元件的资源，最后才回收VCL数组的资源。

三层交换技术

交换机与路由器密码恢复

交换机的选购

路由器设置专题

路由故障处理手册

数字化校园网解决方案

我的《BCB中使用VCL控件数组》中，提到了用TList来实现时无法释放资源的问题，结果今天就得到了答案，邬彦华等等网友都指教了TList实现的释放方法，定义代码同前文：

　　for (int i=1;i<=ButtonCount;i++)

　　{

　　TSpeedButton *spdBtn=new TSpeedButton(this);

　　spdBtn->Parent=ScrollBox;//指定父控件

　　spdBtn->Caption=IntToStr(i);

　　spdBtn->Width=80;

　　spdBtn->Height=80;

　　spdBtn->OnClick=ButtonClick;

　　spdBtn->Left=intLeft;

　　spdBtn->Top=intTop;

　　spdBtn->GroupIndex=1;

　　spdBtn->Flat=true;

　　intLeft=intLeft+80+intSpace;

　　if (i%LineCount==0)

　　{

　　intTop=intTop+80+intSpace;

　　intLeft=intSpace;

　　}

　　buttons->Add(spdBtn);//buttons是一个TList的指针

　　}

　　释放资源的代码如下：

　　int num = button->Count;

　　for(int i=0;i

　　{

　　delete (TSpeedButton *)button->Items[i];

　　}

　　其实说穿了就是删除TList的每一项，不过因为TList->Items的类型是void *，在C/C++中，void *可匹配任何类型，所以只要加一个强制类型转换(TSpeedButton *)就可以了，当然用(TObject *)等也是可以的，因为TObject是VCL中所有类的基类，而基类的指针是可以指向它的直接或间接子类的。

　　两种方法的比较：我上次的方法可说是典型的C++解决方法，而这种方法可说是C++Builder的解决方法，用双重指针比较灵活、高效，但大家都知道，多重指针可不那么好懂，想当初我曾用过4重指针（不要用那么目光看着我！），到后来我自已都糊涂了。而这次的方法比较好懂，并且能用TList类的方法，使用比较方便，但不如上一种高效，总的来说，两种方法各有优劣，具体使用那一种，就看个人的喜好了。