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

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

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

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

Ответ
 
Опции темы
Старый 26.07.2009, 16:11   #1
Tronix
Знающий
 
Регистрация: 26.07.2009
Адрес: Россия, Москва
Сообщений: 318
Написано 103 полезных сообщений
(для 331 пользователей)
Восклицание Как создать статичный массив?

Всем привет.
Сталкнулся с проблеммой: как содать статичный массив?
В паскале это было приблизительно так:
Const
    Mas : Array [1..4] of Integer = (1,2,3,4);
В Мидлетпаскале это не возможно? Как тогда быть с кодом:
             If i = 102 then i := 2 else
	If i = 116 then i := 16 else
	If i = 125 then i := 25 else
	If i = 150 then i := 50 else
	If i = 152 then i := 52 else
	If i = 154 then i := 54 else
	If i = 159 then i := 59 else
	If i = 161 then i := 61 else
	If i = 163 then i := 63 else
	If i = 164 then i := 64 else
	If i = 173 then i := 73 else
	If i = 177 then i := 77 else
	If i = 197 then i := 77 else
	If i = 199 then i := 77 else
	If i = 178 then i := 78;
Он меня просто убивает Неужели делать рессурс и из него читать в массивы? Помогите соптимизить. Я новичек, делаю первую прогу на мидлет паскале. С обычным паскалем опыт есть. Спасибо.

Последний раз редактировалось Tronix, 26.07.2009 в 18:22.
(Offline)
 
Ответить с цитированием
Старый 26.07.2009, 19:40   #2
abcdef
Знающий
 
Регистрация: 16.09.2008
Сообщений: 299
Написано 71 полезных сообщений
(для 123 пользователей)
Ответ: Как создать статичный массив?

из ресурса самый оптимальный и мало занимающий. альтернатива - вместо ресурса использовать строку, а парсингом вытаскивать числа в массив
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Tronix (26.07.2009)
Старый 26.07.2009, 20:15   #3
beisik
Нуждающийся
 
Аватар для beisik
 
Регистрация: 23.04.2008
Адрес: Брест, Беларусь
Сообщений: 53
Написано 10 полезных сообщений
(для 18 пользователей)
Ответ: Как создать статичный массив?

А как второй фрагмент кода относится к массиву?
__________________
diary
(Offline)
 
Ответить с цитированием
Старый 26.07.2009, 22:15   #4
Tronix
Знающий
 
Регистрация: 26.07.2009
Адрес: Россия, Москва
Сообщений: 318
Написано 103 полезных сообщений
(для 331 пользователей)
Ответ: Как создать статичный массив?

Сообщение от beisik Посмотреть сообщение
А как второй фрагмент кода относится к массиву?
Ну было бы проше создать два массива, а потом в цикле искать в них соответствия, типа того:
Const

M1 : Array [1..4] of Integer = (102,116,125,150);
M2 : Array [1..4] of Integer = (2,16,25,50);

Function InList(a: integer) : integer;
var
  i : Integer;
Begin
    InList := a;
    For i := 1 to 4 do
          If M1[i] = a then InList := M2[i];
End;
(Offline)
 
Ответить с цитированием
Старый 26.07.2009, 22:20   #5
Tronix
Знающий
 
Регистрация: 26.07.2009
Адрес: Россия, Москва
Сообщений: 318
Написано 103 полезных сообщений
(для 331 пользователей)
Ответ: Как создать статичный массив?

Сообщение от abcdef Посмотреть сообщение
из ресурса самый оптимальный и мало занимающий. альтернатива - вместо ресурса использовать строку, а парсингом вытаскивать числа в массив
Да, про строку тоже думал.
Ладно, все равно спасибо. Решил в итоге забить и оставить if'ы. Из-за 15 подмен не хочеться возиться. В дальнейшем конешно придеться использовать либо ресурс, либо парсинг строки-константы, если будет больше данных.

Все-таки конечно очень непривычно после обычного паскаля... Как-то кривоватенько все ))
Но вроде написал то, что хотел и даже как-то вроде работает ))) Кому интересно - http://tronix286.pochta.ru/regcodes/index.htm
(Offline)
 
Ответить с цитированием
Старый 27.07.2009, 01:53   #6
beisik
Нуждающийся
 
Аватар для beisik
 
Регистрация: 23.04.2008
Адрес: Брест, Беларусь
Сообщений: 53
Написано 10 полезных сообщений
(для 18 пользователей)
Ответ: Как создать статичный массив?

Совсем не понимаю проблемы. Ручками забить данные в массив не судьба?

m1[1] := 102;

Или не в этом суть вопроса?
__________________
diary
(Offline)
 
Ответить с цитированием
Старый 27.07.2009, 10:57   #7
Tronix
Знающий
 
Регистрация: 26.07.2009
Адрес: Россия, Москва
Сообщений: 318
Написано 103 полезных сообщений
(для 331 пользователей)
Ответ: Как создать статичный массив?

Сообщение от beisik Посмотреть сообщение
Совсем не понимаю проблемы. Ручками забить данные в массив не судьба?

m1[1] := 102;

Или не в этом суть вопроса?
Ну а если данных > 100 ? Мне кажется это очень кривой код с точки зрения программинга.

Вообщем спасибо еще раз всем, переделал все под рессурс. Из него гружу данные в массивы.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Статические тела в PhysX -=Jack=- Физика 8 26.03.2010 00:23
строка>массив Spy4433 2D-программирование 3 24.12.2009 04:28
Безразмерный массив Harter 2D-программирование 4 17.01.2009 01:17
Массив структур scimitar Основной форум 5 09.09.2008 15:12
массив и его элементы Horror 3D-программирование 10 16.02.2007 23:28


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


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