хочу что бы логин и с большой, и с маленькой буквы работал

[Александр9797]

Делаю вход с логином и паролям и хочу что бы Admin и с большой и с маленькой буквы работал.

a:='Admin';

как это сделать???
делал так:

a:='Admin' or 'admin';

но тоже не работает

procedure TForm19.Button1Click(Sender: TObject);
var a,b:string;
begin
a:='Admin';
b:='123';
if (Edit1.Text=a) and (Edit2.Text=b) then
Main_menu.show
else MessageBox(0, 'Ëîãèí èëè ïàðîëü ââåäåí íåâåðíî', 'Îùèáêà...', MB_ICONWARNING or MB_OK);
Form19.Edit1.Text:='';
Form19.Edit2.Text:='';
end;

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[Аватар]

AnsiUpperCase

[Александр9797]

что???

[Аватар]

что???

где??? Еще можно AnsiSameText. Алгоритм такой - выделяешь не знакомое слово, копируешь, вбиваешь в поисковик, можешь добавить слово делфи (на любом языке) - читаешь, применяешь

[Александр9797]

да это не так важно в этой ситуации

[Вадим Мошев]

где???

Когда?
____

Функция AnsiSameText(аргумент1, аргумент2) сравнивает две строки, заданные в переменных аргумент1 и аргумент2 БЕЗ УЧЁТА регистра. Если строки совпадают хотя бы по содержанию (а по регистру не обязаны), то результат - TRUE, иначе - FALSE.

Например, строки Москва, москва, мОсКвА, МОСКВА для этой функции - одно и то же, поэтому любое попарное их сравнение вернёт TRUE.
А вот строки Москва и Владивосток - разные, и результат будет FALSE.

[Turbine]

a:='Admin' or 'admin';

или

if (a='Admin') or (a='admin')

[Serge_Bliznykov]

if (AnsiUpperCase(Edit1.Text)='ADMIN') and (Edit2.Text='123') then ....

[kropotkina-alice]

Сергей, по-моему тут очень сложный случай и грядет очередное

Сообщение от Александр9797

что???

[Вадим Мошев]

Сообщение от kropotkina-alice

Сергей, по-моему тут очень сложный случай и грядет очередное "ЧТО???"

Похоже, что на этот раз от меня. Именно такой вопрос мне захотелось задать, когда я увидел строку:

a:='Admin' or 'admin';

Мне одному она кажется странной?