Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.18;
Скачать: CL | DM;

Вниз

Чувствительность к регистру   Найти похожие ветки 

 
DelphiNew ©   (2003-09-08 14:58) [0]

Мастера, такой вопрос у меня возник.
Мне нужен сделать поиск, но чтоб он был не чувствительный к регистру, т.е если вводится ТАК или ТаК или Так то всё равно должен производится поиск. Привожу код поиска:
if (key=#8)and(length(FindStr)>0) then
begin
FindStr:=copy(FindStr,1,length(FindStr)-1);
end;

if key in [""","\","/"," ","-","0".."9","A".."Z","a".."z","А".."Я","а".."я"]then
begin
FindStr:=FindStr+key;
FrmSpravOtpr.IBQSpr.Filter:=FindFld+" LIKE """+FindStr+"""";
FrmSpravOtpr.IBQSpr.Locate(FindFld,FindStr,[loPartialKey]);
end;
Label3.Caption:=FindStr;


 
WhiteShadow ©   (2003-09-08 15:03) [1]

преобразуйте искомую строку и строку в которой ищите к одному регистру. т.е. AnsiUpperCase или AnsiLowerCase


 
andrey_pst ©   (2003-09-08 15:05) [2]

function AnsiLowerCase(const: string): string;
function AnsiUpperCase(const: string): string;


 
DelphiNew ©   (2003-09-08 15:07) [3]

Спасибо!!!



Страницы: 1 вся ветка

Текущий архив: 2003.09.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
1-58623
Genri
2003-09-04 13:19
2003.09.18
Виртуальный конструктор


6-58808
leonidus
2003-07-11 11:53
2003.09.18
Отключение щелчков при переходе по ссылкакм в TWebBrowser`е


3-58528
Юля П
2003-08-28 10:14
2003.09.18
Правильно посчитать отчет


14-58896
KaPaT
2003-08-28 16:32
2003.09.18
Бортовые компьютеры автомобилей (BMW, Mercedes и т.д.)


8-58786
ProgrammSoft
2003-05-19 11:10
2003.09.18
Звук