Отмена учета регистра

[Македонский]

Написал я наконец свой поисковичок, но увидел следующую проблему: поиск с учетом регистра, т. е. в строке ввода имени файла нужно писать именно с учетом регистра, иначе файл не будет найден. Как отменить учет регистра?

P. S.: Вывод результата поиска у меня осуществляется с пом. if pos(edit2.Text,sr.Name)<>0 then
ListView1.AddItem(SR.Name,listview1 );

[SERG1980]

Можно попробовать в строке поиска всё перевести в верхний регистор
UpCase или AnsiUpperCase

[Македонский]

Увы, я так уже пробовал... безрезультатно

[SERG1980]

Попробуй так

function Up(s:string):string;
var i:integer;
begin
result:='';
for i:=1 to length(s)do
result:=result+Upcase(s[i]);
end;
//далее
if pos(Up(edit2.Text),Up(sr.Name))<>0
только учти что UpCase для латинских букв
для русских надо использовать AnsiUpperCase

[geget]

То есть если перевести в верхний регистор и edit2.Text, и sr.Name, то всё равно не получается?

[Македонский]

Теоретически должно работать, а на практике - ... парадокс какой-то

[Македонский]

Щаз попробую насчет русского языка...

[Македонский]

СРАБОТАЛО!!!! УРАААА!!! Спасибо огромное вам! Еслиб вы знали как много времени я потратил на это...