Регистры

[Манжосов Денис :)]

Я хочу чтобы по нажатию кнопки проверялся текст в Edit,
Вот код:
if Edit1.Text = 'hi' then ....
Но процедура не будет выполнена если текст будет к примеру таким
Hi
hI
как это исправить?

[AlDelta]

Манжосов Денис , ну так приведи всё к одному регистру.

Функция LowerCase - Изменяет символы верхнего регистра в строке в строчные буквы
http://delphibasics.ru/LowerCase.php

[andrey4623]

s:=LowerCase(Edit1.Text);
или UpperCase, только в верхние

[pu4koff]

у эдита есть свойство какое-то я уже не помню названия, но в общем там можно указать чтобы все символы вводились в Upper или Lower регистре. соответственно если это устраивает, никаких преобразований делать не прийдется

[Alter]

Используя CompareText:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if CompareText(Edit1.Text, 'hi')=0 then
 showmessage('Hi complit');
end;

[Arigato]

Вместо UpperCase и LowerCase лучше использовать AnsiUpperCase и AnsiLowerCase. Иначе не будет работать с русскими буквами.

[Stilet]

Вместо UpperCase и LowerCase лучше использовать AnsiUpperCase и AnsiLowerCase

Смотря когда. Если предусматриваются только латиница то лучше как раз не Ansi, ибо они медленнее работают.

[Arigato]

UpperCase реализован руками, причем кривыми.
А AnsiUpperCase использует функцию CharUpperBuff из user32.dll
Хотя, на счет скорости не уверен, т.к. не тестировал.

[Манжосов Денис :)]

AnsiLowerCase помогло, и работает нормально.