[lmikle]

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

Спасибо! Код проверил твой работает за исключением строки в функции!
Твой вариант:
If (Pos(token, sIn) = 1) And (Length(sIn) >= Length(token + 1)) Then
внёс коррективы
If (Pos(token, sIn) = 1) And (Length(sIn) >= Length(token + IntToStr(1))) Then
И тогда работает!!!

Oops.
На самом деле не там скобочку поставил.
Надо так:

Код:

If (Pos(token, sIn) = 1) And (Length(sIn) >= Length(token) + 1) Then