forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)
-   -   MP глючит (http://forum.boolean.name/showthread.php?t=3770)

andresyuk_be 28.06.2007 12:58

MP глючит
 
Пытаюсь прочитать данные из txt файла а он какую то шнягу выводит
res:=openresource('/map1.txt');
for i:=1 to 7 do
for k:=1 to 6 do
a[i,k]:=readbyte(res)-48;

Форма txt файла
1 1 1 1 1 1
1 1 1 1 1 1
2 2 2 2 2 2
2 2 2 2 2 2
1 1 1 1 1 1
1 1 1 1 1 1
1 1 1 1 1 1

Формат результата
1 1 1 1 1 1
-35 -38 1 1 1 1
1 1 -35 -38 2 2
2 2 2 2 -35 -38
2 2 2 2 2 2
-35 -38 1 1 1 1
1 1 -35 -38 1 1
Что это такое?

ViNT 28.06.2007 13:25

Re: MP глючит
 
Как я понял, файл записан строками, значит в нем есть переводы каретки(#10#13)-их быть не должно(файл читается линейно).
В блокноте файл отображается так:

1 1 1 1 1 1
1 1 1 1 1 1
2 2 2 2 2 2
2 2 2 2 2 2
1 1 1 1 1 1
1 1 1 1 1 1
1 1 1 1 1 1

а java видит его вот так:

111111 #10 #13 111111...

отсюда и ошибка:-35 и -38 это и есть #10 и #13

поэтому файл должен выглядеть так:
1 1 1 1 1 11 1 1 1 1 12 2 2 2 2 22 2 2 2 2 21 1 1 1 1 1...

andresyuk_be 29.06.2007 14:52

Re: MP глючит
 
я уже как только не пробовал-ничего не получается
все время какие то сдвиги ,левые значения
прикрепи сюда уже готовый текстовый файл

ViNT 29.06.2007 18:49

Re: MP глючит
 
Вложений: 2
У меня все работает.

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.

Файл должен быть таким:


Часовой пояс GMT +4, время: 05:28.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot