[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, помошники блин