|
Re: MP глючит
У меня все работает.
program restest;
var res:resource;
i,k:integer;
a:array[1..7,1..6]of integer;
begin
res:=openresource('/map1.txt');
for i:=1 to 7 do
for k:=1 to 6 do
a[i,k]:=(readbyte(res))-48;
for i:=1 to 7 do
begin
for k:=1 to 6 do
begin
drawtext(integertostring(a[i,k]),k*15,i*15);
end;
end;
repaint;
delay(100000);
end.
Файл должен быть таким:
|