如何从资源文件中读多个位图到内存数组？（在线等待） (50分)

冰

冰冷的雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #1

我是这样做的：在Auto.res中放入FONTMOULD0、FONTMOULD1...FONTMOULD9共九个位图，
然后写程序如下，结果运行时总是直接弹出messagebox，无法载入资源。请问为什么？
{$R 'D:/XXXX/Ico/Auto.res'}

implementation

var
Moulds: Array [0..9] of TBitmap;
.....

procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 9 do
try
moulds := TBitmap.Create ;
moulds.LoadFromResourceName(HInstance,'FONTMOULD'+inttostr(i));
moulds.PixelFormat := pf8bit;
finally
moulds.free;
messagebox(0,PChar('无法载入资源FONTMOULD'+inttostr(i)+'！'),'错误',MB_OK);
FExit := true;
end;
...
end;

 

O

onlyonekgx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #2

你用
try
finally
end;
能不弹出messagebox吗？

 

冰

冰冷的雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #3

我的理解是：当载入成功的时候不会执行finally部分的语句，否则会从try中跳出到
finally部分。不是这样的吗？

 

O

onlyonekgx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #4

我怎么感觉你是想用
try
except
end;
而不是
try
finally
end;

 

冰

冰冷的雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #5

这样呀，呵呵，谢啦！我是按DELPHI HELP的例子做的