Delphi/Условия

В этом уроке мы познакомимся с условиями. Условие имеет конструкцию if…then…else. Общий вид условия:

if (условие) then
  begin
  //если условие верно, выполняем действия
  end
else
  begin
  //если условие неверно, выполняем действия
  end;

Есть еще неполное условие:

if (условие) then
  //если условие верно, выполняем действия

Теперь напишем программу с условием:

procedure TForm1.Button1Click(Sender: TObject);
var a, b:integer;
begin
  a:=StrToInt(Edit1.Text);
  if a<5 then
    begin
      Edit2.Text:='Число подходит!';
    end
  else
    begin
      Edit2.Text:='Число неправильное!!';
    end;
end;

Таблица операторов

Оператор	Значение
<	меньше
>	больше
=	равно
<=	нестрогое неравенство
>=	нестрогое неравенство
<>	не равно

Таблица логических слов

Слово	перевод
and	и
or	или
not	не

Давайте теперь напишем игру «Пароль». Суть заключается в том, что нужно назвать правильное слово (другие слова не подойдут).

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text='Яблоко' then //пароль - "яблоко"
    begin
      Edit2.Text:='Пароль - верный!';
    end
  else
    begin
      Edit2.Text:='Пароль - неверный!'; //выдаем ошибку
    end;
end;

Теперь добавим одно слово для пароля, если одно из двух правильных слов будет введено, то пароль верный. Чтобы в условие добавить ИЛИ, нужно между двумя условиями добавить or.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Edit1.Text='Яблоко') or (Edit2.Text='картошка') then //пароль - "яблоко" или "картошка"
    begin
      Edit3.Text:='Пароль - верный!';
    end
  else
    begin
      Edit3.Text:='Пароль - неверный!'; //выдаем ошибку
    end;
end;

Изменим условие, теперь нужно ввести два слова, чтобы пароль был верным. Для этого добавим в условие И, вместо or добавим and.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Edit1.Text='Яблоко') and (Edit2.Text='картошка') then //пароль - "яблоко" и "картошка"
    begin
      Edit3.Text:='Пароль - верный!';
    end
  else
    begin
      Edit3.Text:='Пароль - неверный!'; //выдаем ошибку
    end;
end;

Урок 4.Перевод переменных ← Предыдущий урок

Следующий урок → Урок 6.Цикл