[SOAD_72]

пишу ICQ бота
Вот в чем проблема:
если боту посылаеш команду !сохранить "текст для сохранения"
то бот должен сохранить "текст для сохранения" в listbox.
как это можно сделать
заранее спасибо)

[ALexandr555]

вырезаешь текст из сообщения и добавляешь в listbox

[Gravitas]

OnMessageRecv:

Код:

if copy(msg,1,10) = '!сохранить' then begin
  Listbox.Items.Add(Copy(msg,13,length(msg-1)));
end;

[ALexandr555]

Gravitas, надо было дождаться его кода))) но раз так то добавлю свой вариант, с обработкой регистра другого и изменении команды

Код:

if AnsiLowerCase(copy(msg,1,pos(' ',msg)-1)) = '!сохранить' then 
Listbox.Items.Add(Copy(msg,pos(' ')+1,length(msg)));

[Gravitas]

Gravitas, надо было дождаться его кода)))

Да я бы с удовольствием, но...

Сообщение от SOAD_72

как это можно сделать

((

[SOAD_72]

у меня не получилось
в варианте

Код:

if copy(msg1,10) = '!сохранить' then begin
  Listbox.Items.Add(Copy(msg,13,length(msg-1)));
end;

выделяет (msg1,10)
в

Код:

if AnsiLowerCase(copy(msg,1,pos(' ',msg)-1)) = '!сохранить' then 
Listbox.Items.Add(Copy(msg,pos(' ')+1,length(msg)));

ругается на (' ')+1

[ALexandr555]

у обоих опечатки так сказать)

Код:

if AnsiLowerCase(copy(msg,1,pos(' ',msg)-1)) = '!сохранить' then 
Listbox.Items.Add(Copy(msg,pos(' ',msg)+1,length(msg)));

вот

[Gravitas]

ALexandr555, помошники блин

[ALexandr555]

думаю можно было самому исправить такие ошибки

[SOAD_72]

ALexandr555, спс работает))) тему можно закрывать)

[SOAD_72]

вот еще вопрос.
как вот в этот код

Код:

AnsiLowerCase(copy(msg,1,pos(' ',msg)-1)) = edit4.Text

можно добавить вот в эту проверку

Код:

   if
   (Msg=edit1.Text)  or 
   (Msg=edit2.Text)  or  // edit1,2,3 команды бота
   (Msg=edit3.Text) then
   begin
memo20.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'command/1.txt')
end
else
ICQClient1.SendMessage(icq,'Ошибка в команде наберите справка');   

[ALexandr555]

Код:

  if
   (AnsiLowerCase(copy(msg,1,pos(' ',msg)-1)) = edit4.Text) or
   (Msg=edit1.Text)  or 
   (Msg=edit2.Text)  or  // edit1,2,3 команды бота
   (Msg=edit3.Text) then
   begin
memo20.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'command/1.txt')
end
else
ICQClient1.SendMessage(icq,'Ошибка в команде наберите справка');  

не?

[SOAD_72]

СПАСИБО ВСЕМ))