procedure openBMP(BMP:TBitmap;int:integer);
begin
case int of
1:Form1.Image1.Picture.Bitmap:=BMP;
2:Form1.Image2.Picture.Bitmap:=BMP;
3:Form1.Image3.Picture.Bitmap:=BMP;
//...........
end;
end;
function ReadBitmapFromFile(FileName:String;int:Integer):TB itmap;
begin
Result:=TBitmap.create;
Result.LoadFromFile(FileName);
openBMP(Result,int);
end;
....................
map[1]:=TBitmap.Create;
if OpenDialog1.Execute then
map[1].Assign(ReadBitmapFromFile(OpenDialog1.FileName,1) );
|