| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
AnsiPos но не чувствительная к регистру символа [D5, Win95/98, Win2k]
R © (2004-06-20 13:59:00)Может кто подскажет есть функция
аналог AnsiPos но не чувствительная к регистру символа
VMcL (2004-06-20 14:38:00) [1]>>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;
R (2004-06-20 14:30:00) [2]>VMcL © (20.06.04 14:20) [1]
Извеняюсь, вопрос поставил я не корректно, уточню
функция без перевода в соответствующий регистр, аналог
представленной Вами мне известен, например входят такие функции в библиотеку Jcl, в моем случае они не применимы из-за
медленной работы по сравнению с AnsiPos.
VMcL (2004-06-20 14:20:00) [3]>>R © (20.06.04 13:59)
function AnsiPosIC(const Substr, S: string): Integer;
begin
Result := AnsiPos(AnsiLowerCase(Substr), AnsiLowerCase(S));
end;
| |
