Спасибо! Код проверил твой работает за исключением строки в функции!
Твой вариант:
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
И тогда работает!!!
|