Código Delphi
[-]
Const
Mapa: Array[0..5,0..9] of String =
(('Quilicura_01.bmp', 'Quilicura_02.bmp', 'Quilicura_03.bmp', 'Quilicura_04.bmp', 'Quilicura_05.bmp',
'Quilicura_06.bmp', 'Quilicura_07.bmp', 'Quilicura_08.bmp', 'Quilicura_09.bmp', 'Quilicura_10.bmp'),
('Quilicura_11.bmp', 'Quilicura_12.bmp', 'Quilicura_13.bmp', 'Quilicura_14.bmp', 'Quilicura_15.bmp',
'Quilicura_16.bmp', 'Quilicura_17.bmp', 'Quilicura_18.bmp', 'Quilicura_19.bmp', 'Quilicura_20.bmp'),
('Quilicura_21.bmp', 'Quilicura_22.bmp', 'Quilicura_23.bmp', 'Quilicura_24.bmp', 'Quilicura_25.bmp',
'Quilicura_26.bmp', 'Quilicura_27.bmp', 'Quilicura_28.bmp', 'Quilicura_29.bmp', 'Quilicura_30.bmp'),
('Quilicura_31.bmp', 'Quilicura_32.bmp', 'Quilicura_33.bmp', 'Quilicura_34.bmp', 'Quilicura_35.bmp',
'Quilicura_36.bmp', 'Quilicura_37.bmp', 'Quilicura_38.bmp', 'Quilicura_39.bmp', 'Quilicura_40.bmp'),
('Quilicura_41.bmp', 'Quilicura_42.bmp', 'Quilicura_43.bmp', 'Quilicura_44.bmp', 'Quilicura_45.bmp',
'Quilicura_46.bmp', 'Quilicura_47.bmp', 'Quilicura_48.bmp', 'Quilicura_49.bmp', 'Quilicura_50.bmp'),
('Quilicura_51.bmp', 'Quilicura_52.bmp', 'Quilicura_53.bmp', 'Quilicura_54.bmp', 'Quilicura_55.bmp',
'Quilicura_56.bmp', 'Quilicura_57.bmp', 'Quilicura_58.bmp', 'Quilicura_59.bmp', 'Quilicura_60.bmp'));
Var
MapaBMP: TBitmap;
Horizontal, Vertical: Integer;
begin
MapaBMP:= TBitmap.Create;
Try
For Vertical:= 0 To 5 Do
For Horizontal:= 0 To 9 Do
Begin
MapaBMP.LoadFromFile(Directorio + 'plano\'+ Mapa[Vertical, Horizontal]);
Image1.Canvas.Draw(Horizontal*510, Vertical*500, MapaBMP);
End;
Finally
MapaBMP.Free; End;
end;
Cada imagen es de 510x500 pixeles, Las dimensiones del TImage las dejo definidas desde un principio y dentro de un ScrollBox. El consumo máximo de memoria no supera los 500kb para una imagen de 5100x5000 en este caso.