在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控件数组(二)
抱雪
我的《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<num;i++)
{
delete (TSpeedButton *)button->Items[i];
}
其实说穿了就是删除TList的每一项,不过因为TList->Items的类型是void *,在C/C++中,void *可匹配任何类型,所以只要加一个强制类型转换(TSpeedButton *)就可以了,当然用(TObject *)等也是可以的,因为TObject是VCL中所有类的基类,而基类的指针是可以指向它的直接或间接子类的。
两种方法的比较:我上次的方法可说是典型的C++解决方法,而这种方法可说是C++Builder的解决方法,用双重指针比较灵活、高效,但大家都知道,多重指针可不那么好懂,想当初我曾用过4重指针(不要用那么目光看着我!),到后来我自已都糊涂了。而这次的方法比较好懂,并且能用TList类的方法,使用比较方便,但不如上一种高效,总的来说,两种方法各有优劣,具体使用那一种,就看个人的喜好了。
_________________
分享到:
相关推荐
C++ BCB Victor 串口VCL 控件源码 使用实例 详细使用说明书
在BCB中使用ActiveX控件显示Flash动画!!!!
BCB6中ServerSocket控件的使用 & XRF日本理学荧光SMX14仪器数据采集 1、ServerSocket控件
这是一个C++ Builder的VCL结构图 对学习C++ Builder的朋友很多帮助哦!
Cool-X是一个封装了DirectX的VCL控件,有了它能更加方便的在BCB下使用DirectX. 这个版本加入了CoolSound,CoolMuise.
bcb UDP传文件(使用TNMUDP控件) 利用重发机制实现 实现思路见我的博客
bcb下可用的COM控件,用起来特别方便!!
Victor 串口 VCL 控件,版本 1.3.3.5 for BCB 5 & BCB 6 简单实用, 功能强大的 C++ Builder 串口控件! 本控件是免费的, 不需要注册! 2010年1月20日发布 1.5.0.1 版本 (适用于C++ Builder 2010 / 2009) 这个版本...
bcb2010使用IdTCPClient和ip控件 实现简单发送接收
bcb串口mscomm控件错误编译运行错误修复工具集合c++builder
深入BCB理解VCL的消息机制
BCBDelphi中常用的VCL函数说明
BCB VCL组件 探秘 运行期加载BPL
opencv220根据官方vs2010只做好的包转换而来。vcl一直编译不过去,转念间用c转接下就ok了。为那些需要的朋友提供帮助。
BCB下基于MSComm控件的串行通信方法及实现,介绍了在bcb下如何加载MSComm控件,我找了好久.
raize是bcb与delphi的控件组,很不错哦 raize是bcb与delphi的控件组,很不错哦 raize是bcb与delphi的控件组,很不错哦 raize是bcb与delphi的控件组,很不错哦 raize是bcb与delphi的控件组,很不错哦raize是bcb与...
最简单的VCL控件BCB源码。扩展了TImage的功能,当鼠标移动到图片交替显示图片,非常简单的C++buider6编写的vcl控件的源码,非常适合初学者理解VCL的开发机理。
这个控件是个人在网上找的在Delphi,BCB上使用的图片显示控件,支持达近300种图片切换效果。这个控件在本人的《触摸查询终端机客户端程序》是有使用,各位在下载《触摸查询终端机客户端程序》后没有这一控件的可在此...
BCB 窗体与控件 组件应用基础 常用事件 事件驱动编程(Event -Driven Programming)就是指通过对事件做出反应来进行编程 常用控件:单选钮和检查框 群组框和单选按钮组 列表框和组合框 等控件的属性方法及实例