Текущий архив: 2004.07.04;
Скачать: CL | DM;
Вниз
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.
← →
VMcL © (2004-06-20 14:38) [3]>>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;
Страницы: 1 вся ветка
Текущий архив: 2004.07.04;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.026 c
