Как вывести чодержание текстового файла в виде, например карты???
 

Как вывести содержание текстового файла в виде, например карты???
В данном виде кружков в клеточке если в тектсовом файле попадается буква, например латинская заглавная 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,128);
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;

Re: Как вывести чодержание текстового файла в виде, например карты???
 

есть здесь кто живой?? поможите плиз уже третий день над этим бюсь.
:((

Re: Как вывести чодержание текстового файла в виде, например карты???
 

спасибо, уже нашол)