Цитата:
|
Сообщение от 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