Как вывести содержание текстового файла в виде, например карты???
В данном виде кружков в клеточке если в тектсовом файле попадается буква, например латинская заглавная A. Что я делаю неправильно - мидлет не пашет
Иногда получается выводить всякий бред который не соответствует содержанию файла txt
uses game;
const
FIRE_PRESSED = 256;
type Tlevel=record
floor:integer;
end;
var
key: integer;
setka_shag,s:integer;
res:resource;
byte:integer;
XL,YL:integer;
level:array [0..5,0..1] of Tlevel;
begin
res := openResource('/data.txt');
setka_shag:=10;//шаг сетки
for XL:= 1 to 4 do
for YL:= 1 to 1 do
begin
if (resourceAvailable(res)) then
begin
byte := readbyte(res);
end;
if chr(byte)='A' then level[XL,YL].floor:=1;// если буква А то выводим кружок
end;
repeat
key := game.get_key_states;
for s:= 0 to 5 do
begin
setColor(0,0,0);
drawline (0,s*setka_shag,128,s*setka_shag);
drawline (s*setka_shag,0,s*setka_shag,12
;
end;
for XL:= 0 to 5 do
for YL:= 0 to 1 do
begin
setColor(0,0,255);
if level[XL,YL].floor=1 then drawEllipse(xl*setka_shag,yl*setka_shag,setka_shag ,setka_shag);
end;
until (Key=FIRE_PRESSED); // выход по нажатию клавиши огонь
end.
PS:
можно ли загружать из файла информацию примерно такого рода
type Tlevel=record
x,y:integer;
var
level:array[1..,1..] of tlevel;