Тема
:
как вырезать без Enter
Показать сообщение отдельно
#
2
30.12.2010, 18:40
Bargest
Профессионал
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация:
14665
удали последние один-два символа или так:
Код:
n1:=pos('ваш ник: ',Msg)+9; delete(Msg,1,n1); n1:=pos(#13,Msg); nik:=copy(Msg,1,n1);
Это удалит из MSG всё до ника, так что лучше MSG предварительно скопировать в другую переменную.
__________________
jmp $
; Happy End!
The Cake Is A Lie.
Bargest
Посмотреть профиль
Отправить персональное сообщение для Bargest
Найти все сообщения от Bargest