动态创建的TImage,在关闭窗体时候报错，请问如何解决

[huruihappy]

动态创建的TImage,在关闭窗体时候报错，请问如何解决？加了释放代码 还是不行

创建代码：
//新建立的图块基础属性设置
img_tile := TImage.Create(GroupBox2);
img_tile.Picture.Assign(loadImages[tmpImgID].imgByteData);
img_tile.Transparent := true ;
//新建立的图块编辑器属性设置
img_tile.Parent := GroupBox2 ;
img_tile.AutoSize := true ;
img_tile.Visible := true ;



释放代码：
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i : Integer ;
tmpImg : TImage;

begin
for i:= 0 to GroupBox2.ControlCount-1 do
begin
//获取控件名Components[i].Name
if GroupBox2.Controls[0] is TImage then
begin
tmpImg := TImage(GroupBox2.Controls[0]); //跟踪过了 全部释放
FreeAndNil(tmpImg);
end ;
end;
end;




追踪了下确定是由于动态TImage问题引起的。 如果没创建TImage一切正常，一旦创建了TImage就算将其Free依然在关闭窗体时候报错？请问如何解决

[funxu]

另外释放时也不要从0开始循环会出错的，应该逆序释放

[funxu]

哇塞2,3,4L好几位大神啊，喝口水的功夫就被抢答了..........

[浩南_哥]

试了一下，没有你说的情况
估计是其他地方的问题

[huruihappy]

[Quote=引用 2 楼 bdmh 的回复:]
GroupBox2.Controls[0]，你一直用的是索引 0，那你还遍历有啥用，第一次被释放了，第二次肯定就不存在了，你还操作它肯定出错
[/Quote]

基础问题,动态创建的控件删除是0还是i 照着代码试1遍不就知道了，不做多解释。

[huruihappy]

[Quote=引用 3 楼 smallhand 的回复:]
使用类似的
img_tile := TImage.Create(GroupBox2);代码，无需手动释放

如果使用
img_tile := TImage.Create(nil);
方式，就需要手动释放了。看看delphi源码就知道了。
[/Quote]

2种创建和释放的都试过 完全没效果

[ZyxIp]

1楼的回答过了。删除要从最后一个向前删除。
象你这种总是删除第一个不能用 for 循环，要用 while循环，其实用 while循环也不合适，因为得能保证
GroupBox2里只有 Timage类型才行。

[huruihappy]

[Quote=引用 7 楼 m617105 的回复:]
试了一下，没有你说的情况
估计是其他地方的问题
[/Quote]

谢谢 我自己解决了确实不是这个问题引起的。

创建代码后面有一段给Record的代码赋值，是由于Record定义的变量位置引起的，
按道理来说不应该有此问题，由此我怀疑的Delphi的编译BUG。

原Record结构：
// 图块数据
TImgTileData = record
id: Integer ;
imgName : ShortString ; //图片名
x: Integer; //X 坐标
y: Integer; //Y 坐标
w: Integer; //宽
h: Integer; //高
imgPath : ShortString ; //路径
level : Integer ; //所处图层
logicSt : byte ; //逻辑状态
isCanMov : Boolean ; //是否可以移动
isEnabled : Boolean ; //是否可用
end ;


改动后：
// 图块数据
TImgTileData = record
isCanMov : Boolean ; //是否可以移动
isEnabled : Boolean ; //是否可用
id: Integer ;
imgName : ShortString ; //图片名
x: Integer; //X 坐标
y: Integer; //Y 坐标
w: Integer; //宽
h: Integer; //高
imgPath : ShortString ; //路径
level : Integer ; //所处图层
logicSt : byte ; //逻辑状态

end ;


我定义完全没变，只是改变了结构体的数据的排列方式，就OK了。

[huruihappy]

[Quote=引用 11 楼 zyxip 的回复:]
1楼的回答过了。删除要从最后一个向前删除。
象你这种总是删除第一个不能用 for 循环，要用 while循环，其实用 while循环也不合适，因为得能保证
GroupBox2里只有 Timage类型才行。
[/Quote]
谢谢您的建议。 但是我觉得2种办法可能差不多

[浩南_哥]

[Quote=引用 10 楼 huruihappy 的回复:]
引用 7 楼 m617105 的回复:
试了一下，没有你说的情况
估计是其他地方的问题


谢谢 我自己解决了确实不是这个问题引起的。

创建代码后面有一段给Record的代码赋值，是由于Record定义的变量位置引起的，
按道理来说不应该有此问题，由此我怀疑的Delphi的编译BUG。

原Record结构：
// 图块数据
TImgTileData = reco……
[/Quote]
。。。。。还有这情况？？？？
难道是内存对齐的事？？？

[huruihappy]

应该是这么回事，这个BUG很难找。

原先的这个连续存在3奇数不好对齐，估计被优化了
logicSt : byte ; //逻辑状态
isCanMov : Boolean ; //是否可以移动
isEnabled : Boolean ; //是否可用


后来改成了偶数，就再也木有报错了
isCanMov : Boolean ; //是否可以移动
isEnabled : Boolean ; //是否可用
id: Integer ;

[ZyxIp]

不可能吧。对其的问题一般在将结构用Socket发送时要注意，如果只是程序内部自己使用的不会有这种问题的。
更不可能是Delphi 的BUG。
你看到的可能只是表象。

[快乐老猫]

倒序释放是正确的。

[flcop]

我就说说吧，首先楼主太浮躁，出现错误就怀疑是编译的BUG，遇到这种情况首先考虑自己程序的问题，其次不严谨:虽然删0和倒着删结果可能一样, 但是效率不一样,每次删0的话要把后面的存储内容Move到前面,再次是态度: 虽然不报错了，可还是有问题没有解决,为什么顺序会影响程序，难道仅仅是对其的原因么，我想这个没有解决好，下次遇到相同的情况还是会出错。恩..楼主既然找出原因了，我就不多说了,结贴吧.

[仙侣步惊云]

好象要这样:
img_tile.Picture:=null;
freeandnil(img_tile);

[huruihappy]

我找到的 就是这个record变量顺序问题，调整了下就OK

[huruihappy]

找到问题了···低级错误···
TImgTileData = record
id: Integer ;
imgName : ShortString ; //图片名
x: Integer; //X 坐标
y: Integer; //Y 坐标
w: Integer; //宽
h: Integer; //高
imgPath : ShortString ; //路径
level : Integer ; //所处图层
logicSt : byte ; //逻辑状态
isCanMov : Boolean ; //是否可以移动
isEnabled : Boolean ; //是否可用
end ;


id不能作为record的首字段。···恶心啊

[ZyxIp]

楼主你这找出的原因怎么都奇怪的很啊。怎么id不能做首字段啊????????????

我的很多结构都是ID:Integer啊。

[huruihappy]

[Quote=引用 21 楼 flcop 的回复:]

我就说说吧，首先楼主太浮躁，出现错误就怀疑是编译的BUG，遇到这种情况首先考虑自己程序的问题，其次不严谨:虽然删0和倒着删结果可能一样, 但是效率不一样,每次删0的话要把后面的存储内容Move到前面,再次是态度: 虽然不报错了，可还是有问题没有解决,为什么顺序会影响程序，难道仅仅是对其的原因么，我想这个没有解决好，下次遇到相同的情况还是会出错。恩..楼主既然找出原因了，我就不多说了,结贴吧.
[/Quote]

谢谢您，下次会注意的。。
我不介意你说我态度有问题，工程进度摆在那，很多东西不可能细想。
急的赶工程 所以也没细想太多东西。

那个ID出错的问题非常奇怪，但是我追踪内存错误地址回溯的时候，确实是找到的那个ID问题。 我用的是DELPHI XE。 我后来将ID改成IDEX，我代码其他部分都没变，又没有问题了。真的想不通为什么？请教下

// 图块数据
TImgTileData = record
// id : Integer ;
idex: Integer ;
x: Integer; //X 坐标
y: Integer; //Y 坐标
w: Integer; //宽
h: Integer; //高
logicSt : Integer ; //逻辑状态
imgPathID : Short ;
level : Short ; //所处图层
isCanMov : Boolean ; //是否可以移动
isEnabled : Boolean ; //是否可用
isCustomLogic : Boolean ; //是否是自定义逻辑
end ;

//逻辑块数据
TLogicTileData = record
// id : Integer ;
idex: Integer ;
x: Integer; //X 坐标
y: Integer; //Y 坐标
w: Integer; //宽
h: Integer; //高
logicSt : Integer ;
isCustomLogic : Boolean ;
isEnabled : Boolean ;
end;

[huruihappy]

没人知道？

[huruihappy]

算了结贴给分，仍然没有找到这个问题的精准回答。