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

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



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