Das müsste ca. so gehen:
Delphi-Quellcode:
procedure MaleFeld(Image: TImage; Felder: TImgArray);
var
i, j: Integer:
begin
for i := Low(Felder) to High(Felder) do
for j := Low(Felder[i]) to High(Felder[i]) do
Image.Canvas.Draw(i * 10, j * 10, Felder[i, j]);
end;
Runtergetippt & nicht getestet