AnsiPos но не чувствительная к регистру символа

← →
R © (2004-06-20 13:59) [0]

Может кто подскажет есть функция
аналог AnsiPos но не чувствительная к регистру символа

← →
VMcL © (2004-06-20 14:20) [1]

>>R © (20.06.04 13:59)

function AnsiPosIC(const Substr, S: string): Integer; begin Result := AnsiPos(AnsiLowerCase(Substr), AnsiLowerCase(S)); end;

← →
R © (2004-06-20 14:30) [2]

>VMcL © (20.06.04 14:20) [1]
Извеняюсь, вопрос поставил я не корректно, уточню
функция без перевода в соответствующий регистр, аналог
представленной Вами мне известен, например входят такие функции в библиотеку Jcl, в моем случае они не применимы из-за
медленной работы по сравнению с AnsiPos.

>>R © (20.06.04 14:30) [2]

>функция без перевода в соответствующий регистр

AFAIK, стандартной нет. Разве что AnsiContainsText() из модуля StrUtils, но последняя возвращает не позицию вхождения, а только False/True.

P.S. Кстати написана она не особо талантливо:
function AnsiContainsText(const AText, ASubText: string): Boolean; begin Result := AnsiPos(AnsiUppercase(ASubText), AnsiUppercase(AText)) > 0; end;

AnsiPos но не чувствительная к регистру символа Найти похожие ветки