我通过资源和图像对话框向我的项目添加图标,并决定离开,TIcon.LoadFromResourceName
因为它不执行任何错误检查。我编写了看似等效的代码,但没有按预期工作。
这是一个对我来说失败的测试用例:
procedure TForm1.FormCreate(Sender: TObject);
const
ResName = 'Icon_1';
var
Stream: TResourceStream;
begin
OutputDebugString(PChar(Format('RTLVersion = %f', [RTLVersion])));
Assert(Assigned(Image1), 'Image1 comes from the designer, should be instantiated already');
Stream := TResourceStream.Create(HInstance, ResName, RT_GROUP_ICON);
try
Image1.Picture.Icon.LoadFromStream(Stream); // AV here
finally
Stream.Free;
end;
end;
A/V 发生在库内部的地址 0x00000008 写入处,这表明存在一些未初始化的对象实例。
我做错了什么还是图书馆的错误?库版本为 23.0,Delphi XE2