[Noooob]

Помогите пожалуйста!
Как взять последние 6 символов из Socket ReceiveText?Длинна ReceiveText разная.

[poli-smen]

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

Помогите пожалуйста!
Как взять последние 6 символов из Socket ReceiveText?Длинна ReceiveText разная.

В стандартном модуле StrUtils есть функция RightStr для этого. Работает, кстати, через стандартные функции Copy и Length - посмотри для интереса как она устроена.

[Noooob]

для первых 6 я пользуюсь

Код:

Msg := Socket.ReceiveText;
Cmd := Copy(Msg,1,6);
 if (Cmd = 'текст') then
begin
Text := Copy(Msg,Length('текст') + 1,Length(Msg) - Length('текст'));

[poli-smen]

Сообщение от 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);