Тема: Socket ReceiveText
Показать сообщение отдельно
  #4  
Старый 04.01.2014, 17:36
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от Noooob
для первых 6 я пользуюсь
Код:
Msg := Socket.ReceiveText;
Cmd := Copy(Msg,1,6);
Ну это понятно Кстати в том же модуле (StrUtils) есть и LeftStr, но пользы от неё конечно поменьше будет чем от RightStr.
Цитата:
Сообщение от Noooob
Код:
Text := Copy(Msg,Length('текст') + 1,Length(Msg) - Length('текст'));
Если в третьем параметре в Copy указать число больше чем в строке для этого есть символов, то скопируется подстрока от указанного символа и до конца строки, поэтому здесь можно упростить до такого:
Код:
Text := Copy(Msg, Length('текст') + 1, MaxInt);
Кроме того есть стандартная функция Delete умеющая удалять из строки подстроку из любого места и любой длины. Например первые 5 символов из строки можно удалить так:
Код:
Delete(Str, 1, 5);
Ответить с цитированием