29.12.2009, 16:56
|
|
Iron Man#2
Регистрация: 08.07.2009
Сообщений: 2,084
С нами:
8865026
Репутация:
2562
|
|
помогите с TICQ
Вот тут нужна помощь)
Вот обработка в TICQ:
Код:
procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
LogFile: TextFile;
ICQ: Cardinal;
begin
icq := StrToInt(UIN);
Memo1.Lines.Add(UIN + ': ' + Msg);
if Msg= 'ник' then
ICQClient1.SendMessage(icq, 'вы успешно зареганы')
else
ICQClient1.SendMessage(icq, 'Команда не найдена!');
end;
как сделать чтобы команда "ник" писалась так: "ник желаемый ник" (пример: ник павел) как я понял надо что-то добавить в строке:
Код:
if Msg= 'ник' then
ICQClient1.SendMessage(icq, 'вы успешно зареганы')
подскажите что добавить чтобы была команда не просто слово ник а через пробел ещё слово можно написать было
Последний раз редактировалось Keltos; 29.12.2009 в 17:33..
Причина: помогите с TICQ
|
|
|