procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
//
for i := 0 to TabSheet1.ControlCount - 1 do
begin
TabSheet1.Controls[i].Destroy; //我还尝试了Free
end;
end;
有问题?
var
i: Integer;
begin
//
for i := 0 to TabSheet1.ControlCount - 1 do
begin
TabSheet1.Controls[i].Destroy; //我还尝试了Free
end;
end;
有问题?
解决方案 »
- cxVerticalGrid中ComboBox的index值
- 源代码中出现特殊字符编译不过,大伙是怎么解决的
- 一个经典的问题讨论!数据库设计到底要不要冗余!
- 请问:如何根据当前时间和时间段得到另一个时间?
- 统计问题??
- 请问acess有事务吗?可以对数据库进行操作。
- 【求助】ADOQuery查出了两条记录,如何写语句直接使用第二条记录的某个字段的值? 谢谢
- DBEXPRESS 里的控件放到datamodule里才能正常使用数据感知组件? 如果直接放入窗口没法显示查询的数据
- 两个初级问题。
- Delphi 和 C++ 一起开发,如何?
- 非OLE的Excel导出的问题(up有分!)
- 在DELPHI中如何检测是系统是否安装打印机
for i := TabSheet1.ControlCount - 1 downto 0 do
资源释放,要用downto来释放。否则报错out of bound。