Конструкция If…then…else

[Sascha]

В этом уроке мы с вами познакомимся с конструкцией if…then…else — условием.
Конструкцией if…then…else можно проверять какое-нибудь условие, дословно она переводится так: если…то…иначе.

Кстати после // обычно пишется комментарий для разных целей. Если стоит // и ваш комментарий то компилятор Delphi просто не обращает на это внимание, и компилирует программу без комментария. А еще комментарий можно заключать в фигурные скобки — {{ комментарий }}

И так, сейчас мы будем практиковаться, и цель нашей следующей программы будет — проверка логина и пароля введенного в Edit1 и Edit2.

И так, создаем новый проект, кидаем на форму уже знакомые компоненты — Edit1 и Edit2, Button1.

Очищаем свойство «Текст» у Edit1 и Edit2 и изменяем надпись Button1 на «Проверить«.

Теперь, покажем что в Edit1 нужно вписывать Логин, а в Edit2 — пароль. Переходим в блок «Инспектор объектов» сначала Edit1 а потом Edit2. Ищем свойство «TextHint» и пишем туда для Edit1 — «Логин…» , а для Edit2 — «Пароль…».

!! — Свойство TextHint — параметр отвечающий за подсказку в поле ввода, т.е там будет текст но если вы будете вписывать туда свой текст при запуске, то подсказка пропадает. Удобно :)

Теперь кликаем два раза на кнопку «Проверить«, тем самым создавая событие Onclick, и пишем следующий код:

if (Edit1.Text = ‘admin’) and (Edit2.Text = ’12345′) then
begin
ShowMessage(‘Вы авторизованны!’);
end
else
begin
ShowMessage(‘Логин не верный!’);
end;

А теперь я вам опишу каждую строчку этого кода.
Первая строчка — Если в Edit1 написано admin и в Edit2 написано 12345
Вторая строчка — То всплывает сообщение «Вы авторизованны!»
Третья строчка — иначе
Четвертая строчка — Всплывает сообщение «Вы не авторизованны!»