Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal > Основной форум

Основной форум Сюда все проблемы связанные с программированием.

Ответ
 
Опции темы
Старый 28.06.2007, 12:58   #1
andresyuk_be
Оператор ЭВМ
 
Регистрация: 29.01.2007
Сообщений: 33
Написано 0 полезных сообщений
(для 0 пользователей)
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
Что это такое?
(Offline)
 
Ответить с цитированием
Старый 28.06.2007, 13:25   #2
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
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...
(Offline)
 
Ответить с цитированием
Старый 29.06.2007, 14:52   #3
andresyuk_be
Оператор ЭВМ
 
Регистрация: 29.01.2007
Сообщений: 33
Написано 0 полезных сообщений
(для 0 пользователей)
Re: MP глючит

я уже как только не пробовал-ничего не получается
все время какие то сдвиги ,левые значения
прикрепи сюда уже готовый текстовый файл
(Offline)
 
Ответить с цитированием
Старый 29.06.2007, 18:49   #4
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
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.

Файл должен быть таким:
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


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


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com