delphi 调用资源的问题

Question

我用下面代码测试是没有问题的，可以显示图片
bmp: TBitmap;
bmp:=TBitmap.create;       
bmp.LoadFromResourceName(hinstance,PChar('b2'));  
Image1.Picture.Bitmap:= bmp;

Answer 1

你的array[0..53] of Tbitmap，是指定Tbitmap的数组变量，需要分别创建实体后才能读取图像。

Answer 2

var
  i:integer;
  bmps:array[0..53] of Tbitmap;
begin
  for i:=0 to 53 do
  begin
    bmps[i]:=Tbitmap.Create;
    bmps[i].LoadFromResourceName(hinstance,PChar('b'+inttostr(i+1)));
  end;
end;上述代码试试，应该可以了。