如何把一批位图放在数组里(200分)

  • 主题发起人 主题发起人 XU Xuebin
  • 开始时间 开始时间
X

XU Xuebin

Unregistered / Unconfirmed
GUEST, unregistred user!
把一批位图放在数组里,用循环处理,这样代码看起来顺眼些。请教各位大侠 !
 
var
bitmaparg : array of TBitmap

setlength(bitmaparg,10)
bitmaparg[0] := Tbitmap.Create;
bitmaparg[0].loadfromfile
 
var
bitmaparg : array of TBitmap;
i : Integer;

setlength(bitmaparg,BmpNum)
for i := 0 to BmpNum-1 do
begin
bitmaparg := Tbitmap.Create;
bitmaparg.loadfromfile(FileName+inttostr(i));
end;
不过这种做法很耗资源哦。
 
如果都是大图片……
如果都是真彩色……
如果你的内存small……
如果……
那么,不要这麽做!!!!!
 
用peng_qs的方法,最后别忘了for循环释放。
 
谢谢各位 !
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
923
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部