Аналоги оператора switch

Для чего нужны аналоги оператора switch в Delphi

Оператор выбора (case) в Delphi — мощный инструмент, но не всегда подходит. Бывают ситуации, когда нужна проверка диапазонов, работа со строковыми данными, динамические условия или высокая производительность. Мы разобрали четыре основных подхода, каждый из которых ориентирован на разные задачи и уровень подготовки разработчика.

Классический Case — для четких целочисленных или перечислимых значений

Для кого: начинающие и опытные разработчики, которые работают с фиксированным набором целых чисел, символов (Char) или перечислимых типов (enum). Идеален для простых «меню» и состояний.

Целевая аудитория: программисты, создающие обработчики команд, конечные автоматы, парсеры токенов.
Критерии выбора: читаемость, простота, предсказуемое поведение. Нет необходимости в сложной логике или строках.
Кому подходит: тем, кто ценит лаконичный код без лишних накладных расходов. Если значения — Integer или Byte, case — лучший выбор.

case KeyState of
  ksWait:   DoWait;
  ksActive: DoActive;
  ksDone:   DoDone;
end;

Цепочки If-Else — для сложных условий и строк

Для кого: разработчики, которым нужно проверять строки (string), вещественные числа (Double), диапазоны значений или комбинировать несколько условий (AND, OR).

Целевая аудитория: специалисты по бизнес-логике, обработке текстов, валидации форм.
Критерии выбора: гибкость, возможность использовать любые типы данных, динамическая фильтрация.
Кому подходит: когда набор значений заранее неизвестен или меняется во время выполнения. Например, проверка ввода пользователя или конфигурационных ключей.

if Command = 'print' then
  PrintDoc
else if Command[1] in ['a'..'z'] then
  HandleLetter
else
  DefaultAction;

Таблицы переходов (массивы указателей) — для максимальной производительности

Для кого: инженеры, пишущие высоконагруженные системы, игры, ядра редакторов. Требуют предварительной подготовки данных и понимания указателей.

Целевая аудитория: опытные Delphi-разработчики, которые оптимизируют код для работы в реальном времени или с большим потоком команд.
Критерии выбора: скорость выполнения, минимизация ветвлений, предсказуемость времени отклика.
Кому подходит: если у вас есть «горячий» цикл с сотнями вызовов в секунду, а набор команд статичен. Подходит для виртуальных машин, интерпретаторов.

type
  TCommandProc = procedure of object;
var
  CmdTable: array[TCommandID] of TCommandProc;
...
CmdTable[CmdID];  // вызов без if и case

Словари (Dictionary) и анонимные методы — для гибкой маршрутизации

Для кого: разработчики архитектурно сложных приложений, где команды приходят извне (REST API, плагины, скрипты). Используют современные возможности Delphi (Generics).

Целевая аудитория: авторы фреймворков, серверных решений, систем с подключаемыми модулями.
Критерии выбора: расширяемость, возможность динамически добавлять/удалять обработчики, работа со строками как ключами.
Кому подходит: когда код должен быть легко конфигурируемым, а набор команд известен только на этапе запуска. Отлично для реализации паттерна «Команда».

var
  Handlers: TDictionary<string, TProc>;
begin
  Handlers := TDictionary<string, TProc>.Create;
  Handlers.Add('run', procedure begin RunTask end);
  Handlers.Add('stop', procedure begin StopTask end);
  if Handlers.TryGetValue(CommandString, Handler) then
    Handler;
end;