Оператор Case

Оператор Case состоит из выражения (селектора) и списка операторов, каждый из которых выполнится в определенном случае.

Синтаксис:

Case выражение Of
  вариант : оператор;
  ...
  вариант : оператор;
End

или

Case выражение Of
  вариант : оператор;
  ...
  вариант : оператор;
Else оператор
End

Замечание:

"вариант" состоит из одной или большего количества констант или диапазонов, разделенных запятыми.

Часть "Else" является необязательной.

Пример:

Case Ch Of
   'A'..'Z', 'a'..'z' : WriteLn('Буква');
   '0'..'9'           : WriteLn('Цифра');
   '+', '-', '*', '/' : WriteLn('Оператор');
Else WriteLn('Специальный символ')
End;

Описание примера:

В данном примере если переменная Ch будет буквой ('A'..'Z', 'a'..'z'), цифрой ('0'..'9') или оператором ('+', '-', '*', '/'), то будет соотвественно выведено одно из сообщений 'Буква', 'Цифра', 'Оператор'. В противном случае программа напечатает сообщение 'Специальный символ'.