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

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

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

Ответ
 
Опции темы
Старый 06.05.2010, 07:39   #1
im_zorg
Знающий
 
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений
(для 61 пользователей)
Вопрос Вырезание из произвольной строки значения переменных...

for i:=0 to Length(msg)-do
 
begin
 
if GetChar(msg,i)=',' then m:=i;
 if 
GetChar(msg,i)='`' then j:=i;
 if 
GetChar(msg,i)='¬' then n:=i;
 if 
GetChar(msg,i)='o' then z:=i;
 if 
GetChar(msg,i)='i' then l:=i;
 if 
GetChar(msg,i)='p' then k:=i;
 if 
GetChar(msg,i)='q' then q:=i;
 if 
GetChar(msg,i)=';' then q:=i;
 
end;
 
botx:=stringtointeger(Copy(msg,0,m));
 
boty:=stringtointeger(Copy(msg,m+1,j));
 
botdir:=stringtointeger(Copy(msg,j+1,n));
 
botframe:=stringtointeger(Copy(msg,n+1,z));
 
Shotb.X:=stringtointeger(Copy(msg,z+1,l));
 
Shotb.X:=stringtointeger(Copy(msg,l+1,k));
 if 
stringtointeger(Copy(msg,k+1,q))=1 then shotb.alive:=true else shotb.alive:=false
вот так я вырезал но почему то последнии Shotb.X и shotb.alive вырезаются неправильно.
if shot.alive=true then alive:=else alive:=0;
bt.send_message(''+integertostring(x)+','+integertostring(y)+'`'+integertostring(pldir)+'¬'+integertostring(plframe)+'o'+integertostring(Shot.X)+'i'+integertostring(Shot.Y)+'p'+integertostring(alive)+'q;'); 
вот так отправляю строку с переменными... Есть ли нормальный способ???
(Offline)
 
Ответить с цитированием
Старый 06.05.2010, 10:15   #2
im_zorg
Знающий
 
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений
(для 61 пользователей)
Ответ: Вырезание из произвольной строки значения переменных...

delete....
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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


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


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