Чувствительность к регистру

← →
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]

Спасибо!!!

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