program q4;
const Mheight=20;
Mweight=15;
var i,j : integer;
line:string;
readmap:resource;
marray:array[1..100,1..100] of string;
procedure getmap; //Процедура загрузки карты из текстового файла
begin
readmap:=OpenResource('/map.txt');
For i:=1 to Mheight do
begin
line:=Readline(readmap);
for j:=1 to Mheight do
marray[i,j]:=getChar(line,j);
end;
CloseResource(readmap);
end;
procedure otrisovka; //Процедура отрисовки изображения
begin
For i:=1 to Mheight do
for j:=1 to Mweight do
If marray[i,j]='1' then FillRect((16*i)-16,(16*j)-16,16,16);
repaint;
end;
begin
setcolor(0,255,0);
getmap;
otrisovka;
delay(3000);
end.
Белый экран. В чём проблема?
Proba.zip