![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() вот код
Код:
if msg='команда ' then Icqclient1.SendMessage(StrToInt(UIN), *); пользователь набирает цифру в другой процедуре идет обработка и вывести результат сюда Код:
Icqclient1.SendMessage(StrToInt(UIN), *); ![]() |
#2
|
||||
|
||||
![]() может так?
Код:
if msg='help' then begin Icqclient1.SendMessage(UIN,'выберите нужный пункт:' ); Icqclient1.SendMessage(UIN,'1 - пункт1'); Icqclient1.SendMessage(UIN,'2 - пункт2'); Icqclient1.SendMessage(UIN,'3 - пункт3'); end; try case inttostr(msg) of 1:procedure1; 2:procedure2; 3:procedure3; end; except end; Последний раз редактировалось Admin, Сегодня в 10:32. |