Проверка текста без учета регистра

[John_chek]

var
login:string;
begin
      ...
      if login = EdtUser.Text then
      ...

Привет всем! Подскажите, как выполнить проверку чтобы не учитывался регистр??

[pu4koff]

lowercase и хранить "эталон" тоже в нижнем регистре?

[ZhekON]

если дело в строках, то у каждого символа свой код!
предлагаю посимвольно сравнивать, и проверять код нижнего регистра и вышшэго!
думаю розберёшся
Вобщем пишы процэдуру!

[John_chek]

Дело вот в чем! Я храню в ini файле логин и пароль, который пользователь сам может менять в нутри проги. Только вот при регистрации нужно точно помнить регистр, хотя это не суть важно для меня, да и для пользователей. Короче вот полная процедура:

procedure TFreg.BitBtn1Click(Sender: TObject);
var iniFileName:String;
login:string;
pass:string;
begin
      iniFileName := ExtractFilePath(application.exename)+'\'+ dm.IniPS.IniFileName;
      with TiniFile.Create(iniFileName) do try
      login := ReadString('Connect','Login','1');
      pass := ReadString('Connect','Pass','1');
      finally
      Free;
      end;
      if login = EdtUser.Text then
        begin
        if pass = EdtPsw.Text then
          begin
          ModalResult := 6;
          end
        else
          begin
          MessageDlg('Пароль введен не верно!', mtError, [mbOK], 1);
          end
        end
      else
        begin
        MessageDlg('Имя пользователя введено не верно!', mtError, [mbOK], 1);
        end
end;

Далее при открытии главформы я проверяю, если ModalResult = 6, то счастье

[John_chek]

Сообщение от pu4koff

lowercase и хранить "эталон" тоже в нижнем регистре?

А если напишут логин кирилицей?? Да и не хочу этим ограничивать!
Хотя нашел еще одну функцию: AnsiLovewCase, щас попробую

[John_chek]

Все вопрос отпал, спасибо, разобрался!

[JTG]

AnsiLowerCase вроде тоже не работает с кириллицей
Кажись есть ф-ция WideUpperCase

if WideUpperCase(login) = WideUperCase(EdtUser.Text) then..

И пофиг тогда в каком регистре логин хранить, хоть так В@сЯ ПУпКин

[John_chek]

Сообщение от JTG

AnsiLowerCase вроде тоже не работает с кириллицей
Кажись есть ф-ция WideUpperCase

if WideUpperCase(login) = WideUperCase(EdtUser.Text) then..

И пофиг тогда в каком регистре логин хранить, хоть так В@сЯ ПУпКин

Нет эта функция возвращает исходную строку, в кот. все заглавные буквы заменены на строчные с учетом кодировки windows (т.е. с учетом кириллицы) - Это цитата из справочника!
Короче в iniфайл записал с этой функцией и читаю тоже сней, и все работает

[Virtson]

хоть к нижнему.. хоть к верхнему -
а вот если бы не было готовой функции ?