一个动态数组 元素为类TXX 删除元素的时候是先FREE还是先将动态数组长度减一
先将动态数组长度减一了 那么那个对象还存在吗 先FREE了动态数组长度有无变化?
先将动态数组长度减一了 那么那个对象还存在吗 先FREE了动态数组长度有无变化?
解决方案 »
- 在線高分求助﹕delphi6 設置lookupcache為true時﹐發生末知錯誤﹔設為false時﹐lookup類型數據不能顯示
- 主程序与DLL的关系(属于不同进程,还是属于同一进程的不同线程,还是其他?)
- FileStream.Seek怎么不对?
- 数据集能不能在Sql语句中当表名使用?
- 怎样给PANEL控件加个图片背景呀?
- 小问题,Delphi中如何实现文件COPY?
- TActiveXForm上面的编辑框和网页上的编辑框Tab键切换的问题,在线等
- 大量的delphi源码和delphi技巧,不看看可惜了
- 关于注册表的操组..请问TRegistry中怎样建立一个新的字符串.
- 有关installshield和database的问题
- 参数 没有默认值
- 如何实现在我的程序中执行某个事件之后,去执行另外程序中某个按钮的单击事件?急!!!!
procedure TForm1.Button1Click(Sender: TObject);
var
lab : array of Tlabel;
i : integer;
begin
setlength(lab,6);
for I := 0 to 6 do
begin
lab[i] := TLabel.Create(nil);
end;
for I := 0 to 6 do
FreeAndNil(lab[i]); setlength(lab,0);end;
你这段代码有两处明显的错误
1. i的范围应该是0到5
2. FreeAndNil这一句, 循环应该是for i := 5 downto 0 do
参考TList