Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c