Res资源问题(100分)

  • 主题发起人 主题发起人 hzjzxp
  • 开始时间 开始时间
H

hzjzxp

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在有个读取Res文件和小程序,在D5上面可以用,但是在D7和D2007上面却异常(有几行无法设断点)!
我已把程序上传到 delphi.ys168.com Temp目录的ResPrg.rar(附图片)

请大家帮忙看看!
 
D7 下没有异常
 
D7 有几行无法设断点 就是在For循环里面的语句.
 
能够正常运行还设什么断点?

还有因为有内存泄漏,修改了一下
procedure TForm1.Button1Click(Sender: TObject);
var
Res: TResourceStream;
i: Integer;
str: String;
Stream: TMemoryStream;
a_Bitmap: array [0..1] of TBitmap;
begin
Stream := TMemoryStream.Create;
a_Bitmap[0] := Image1.Picture.Bitmap;
a_Bitmap[1] := Image2.Picture.Bitmap;
for i := Low(a_Bitmap) to High(a_Bitmap) do begin
str := 'mypi' + IntToStr(i + 1);
Res := TResourceStream.Create(HInstance,str,'BMP');
Res.SaveToStream(Stream);
Stream.Seek(0,soFromBeginning);
a_Bitmap.LoadFromStream(Stream);
Res.Free;
end;
Stream.Free;
end;
 
就是因为能够正常运行,才应该可以设断点了。还有就是在程序的任何行加注释语句都无法编译,我是想搞清楚到底是什么原因导致的这种情况,毕竟在D5上都可以。
 
可能代码里面含有非法字符,试一下注释掉所有代码,然后手工编写所有代码看看。
 
后退
顶部