Условный оператор if-then-else

Основы условного оператора if-then-else в Delphi

В языке Delphi условная конструкция if-then-else — это базовый механизм для управления потоком выполнения программы. Она позволяет задать альтернативные пути работы в зависимости от истинности или ложности некоторого выражения. В отличие от многих других языков, Pascal-семейство (и Delphi в частности) использует строгий синтаксис с ключевыми словами then и else, а также обязательное использование begin…end для блоков из нескольких инструкций.

Конструкция имеет две формы: сокращенная (без else) и полная (с ветвью else). Синтаксически важно помнить, что перед else не ставится точка с запятой — это одна из частых ошибок начинающих.

Синтаксис и базовые примеры

1. Сокращенная форма: if условие then действие; — выполняется только при истинности. Если действие больше одной строки, используйте begin ... end.
2. Полная форма: if условие then действие1 else действие2; — при ложности условия выполняется блок после else.
3. Вложенные конструкции: разрешены, но злоупотребление снижает читаемость. Рекомендуется заменять глубокую вложенность на case of или вынос логики в отдельные функции.

Пример для новичков:

var score: Integer;
begin
  score := 75;
  if score >= 60 then
    WriteLn('Зачет получен')
  else
    WriteLn('Нужно пересдать');
end;

Для кого эта конструкция? Анализ сегментов аудитории

Сайт предназначен для разработчиков на Delphi — от студентов до инженеров legacy-систем. Рассмотрим разные сегменты:

• Студенты и начинающие (Junior): их цель — освоить базовые конструкции, понять принцип ветвления. Выбирают простые примеры без вложенности. Для них if-then-else — первый шаг к написанию логики. Им подходят уроки с визуальными схемами и разбором ошибок.
• Разработчики-фрилансеры (Middle): пишут утилиты, автоматизации для Windows. Им важна производительность и чистота кода. Они ищут, как оптимизировать сложные условия, когда лучше заменить if на case, как избежать «лапши» из вложенных конструкций. Им нужны примеры с обработкой исключений и совместным использованием циклов.
• Корпоративные программисты (Senior/Team Lead): работают с большими проектами (ERP, CRM). Их критерии — читаемость кода для команды, поддержка legacy. Они выбирают if-then-else в сочетании с принципами SOLID, например, вынесение условий в отдельные функции-предикаты. Им полезны разделы о рефакторинге и тестировании условных конструкций.
• Преподаватели и авторы курсов: используют материалы как базу для методичек. Им нужна четкая классификация ошибок, шаблоны кода и примеры с комментариями. Они выбирают страницы с акцентом на педагогику: от простого к сложному.

Критерии выбора: какую форму if применять?

Выбор между сокращенной и полной формой диктуется логикой приложения. Если действие приложимо только при истинности — используйте if-then. Если нужно обработать как истину, так и ложь — полная форма. Совет: избегайте пустых блоков после then или else — это ухудшает понимание. Для проверки множества взаимоисключающих значений предпочтительнее case of — он читается легче и выполняется быстрее за счет таблицы переходов.

Типичные ошибки и как их избежать

• Пропуск begin…end при нескольких операторах в одной ветке. Результат: выполняется только первая строка, остальные — всегда.
• Точка с запятой перед else. Компилятор воспринимает это как конец оператора, и else становится неожиданным.
• Сравнение строк без учета регистра: используйте AnsiSameText или UpperCase.
• Избыточное вложение: более 3 уровней — сигнал к рефакторингу. Замените на вложенные функции или ранний выход (guard clauses).

Советы по стилю для Delphi 2026

Современные редакторы Delphi (версии 11/12, Embarcadero 2026) поддерживают подсветку синтаксиса и рефакторинг. Рекомендуется: всегда выравнивать begin на уровень вложенности, ставить пробелы вокруг операторов сравнения, избегать «магических чисел» в условиях — используйте константы. Для проверки на nil в Delphi используйте Assigned — это стандарт идиомы.

Пример хорошего стиля:

const
  PASS_THRESHOLD = 60;
var
  studentScore: Integer;
begin
  studentScore := GetCurrentScore();
  if studentScore >= PASS_THRESHOLD then
  begin
    RegisterPass();
    NotifyStudent('Поздравляем!');
  end
  else
  begin
    RegisterFail();
    NotifyStudent('Готовьтесь к пересдаче.');
  end;
end;

Такая запись легко читается, поддерживается и не вызывает вопросов у коллег.

Заключение

Условный оператор if-then-else — основа управляющих конструкций Delphi. Его освоение — обязательный этап для любого разработчика, независимо от уровня. Практикуйтесь на простых задачах, переходите к вложенным сценариям, изучайте альтернативы (case of) и помните о читаемости. Материалы сайта помогут вам шаг за шагом освоить все тонкости.

Добавлено: 27.04.2026