bcb定义数组:在BCB中使用VCL控件数组2

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

for ( i=1;i<=ButtonCount;i)
{
TSpeedButton *spdBtn= TSpeedButton(this);
spdBtn->Parent=ScrollBox;//指定父Control控件
spdBtn->Caption=IntToStr(i);
spdBtn->Width=80;
spdBtn->Height=80;
spdBtn->OnClick=ButtonClick;
spdBtn->Left=Left;
spdBtn->Top=Top;
spdBtn->GroupIndex=1;
spdBtn->Flat=true;
Left=Left+80+Space;
(i%LineCount0)
{
Top=Top+80+Space;
Left=Space;
}
buttons->Add(spdBtn);//buttons是个TList指针
}
释放资源代码如下:

num = button->Count;
for( i=0;i<num;i)
{
delete (TSpeedButton *)button->Items[i];
}
其实说穿了就是删除TList每项不过TList->Items类型是void *在C/C中void *可匹配任何类型所以只要加个强制类型转换(TSpeedButton *)就可以了当然用(TObject *)等也是可以TObject是VCL中所有类基类而基类指针是可以指向它直接或间接子类

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

延伸阅读

• 2009-1-15-- vb添加控件:在VB中动态添加可响应消息的Control控件
• 2009-1-15-- vb控件:VB中实现同一窗口的多个例子及Control控件的动态增减
• 2008-9-10-- 控件数组:.net里动态生成控件数组
• 2009-1-15-- vb控件:VB中抑制Control控件的弹出菜单
• 2009-1-15-- vb控件:VB教程第 3章第 3节——直线和形状Control控件
• 2009-2-12-- 控件数组:用C#实现简单的控件数组
• 2009-1-15-- vb控件大小:让VB自动改变Control控件大小
• 2009-1-15-- vb滚动条控件:用VB防止文本Control控件中的部分滚动
• 2009-1-15-- vb控件教程:VB教程第 2章第十 4节——文件操作Control控件
• 2009-1-15-- 网格控件:使VB的网格Control控件具有输入功能