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

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

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

Ответ
 
Опции темы
Старый 12.10.2009, 10:44   #1
demon112
Знающий
 
Регистрация: 18.03.2009
Сообщений: 223
Написано 10 полезных сообщений
(для 17 пользователей)
Помогите упростить алгоритм...

в общем у мя есть такая строка line:='q'+HpPlayer+'i'+'w'+XPlayer+'i'+'e'+YPlayer +'i'+'r'+AlfaPlayer+'i'+'.';

мне из неё надо переменные. Я делаю так:
 repeat
 line1:=getChar(line, x);
 
 if line1='q' then
   begin
   y:=x;
   x:=x+1;
   repeat
   y:=y+1;
   line1:=getChar(line, y);
   until line1='i';
   HpPlayer:=StringToInteger(copy(line, x, y));
   x:=y;
   end;
 
  if line1='w' then
   begin
   y:=x;
   x:=x+1;
   repeat
   y:=y+1;
   line1:=getChar(line, y);
   until line1='i';
   XPlayer:=StringToInteger(copy(line, x, y));
   x:=y;
   end;
 
  if line1='e' then
   begin
   y:=x;
   x:=x+1;
   repeat
   y:=y+1;
   line1:=getChar(line, y);
   until line1='i';
   YPlayer:=StringToInteger(copy(line, x, y));
   x:=y;
   end;
 
  if line1='r' then
   begin
   y:=x;
   x:=x+1;
   repeat
   y:=y+1;
   line1:=getChar(line, y);
   until line1='i';
   AlfaPlayer:=StringToInteger(copy(line, x, y));
   x:=y;
   end;
  x:=x+1;
 until line1='.';
кто нить может облегчить алгоритм? а то мне расшифрововать надо много и быстро...
__________________
И суслики вам не помогут
(Offline)
 
Ответить с цитированием
Старый 12.10.2009, 14:55   #2
Bruteo
ПроЭктировщик
 
Регистрация: 31.01.2007
Сообщений: 128
Написано 20 полезных сообщений
(для 43 пользователей)
Ответ: Помогите упростить алгоритм...

В зависимости от задачи можно просто разделять значения переменных каким-нибудь символом, а потом, например, использовать библиотеку lib_parse.
Т.е. значение1;значение2;значение3...
(Offline)
 
Ответить с цитированием
Старый 12.10.2009, 19:56   #3
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: Помогите упростить алгоритм...

Нужно использовать функции Pos, Copy, Delete и Length.
(Offline)
 
Ответить с цитированием
Старый 13.10.2009, 13:29   #4
odd
Мастер
 
Аватар для odd
 
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений
(для 713 пользователей)
Ответ: Помогите упростить алгоритм...

Легче использовать Lib_parse и парсить по символу "i" и потом только нужно будет убирать лишнюю первую букву в полученных обрезках. Тут лучше использовать Copy.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Алгоритм MD5 Dialogus Библиотеки 7 07.02.2010 15:17
Алгоритм Дейкстры Serega 3D-программирование 6 29.10.2009 20:18
можно ли упростить этот код mustaeed MidletPascal 1 28.05.2009 20:42
Волновой алгоритм, помогите Putin 2D-программирование 2 04.02.2009 13:21
Алгоритм поворота alcosholik Алгоритмика 8 08.09.2005 21:05


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


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