Case..Of..Else..End

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

Объявление

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

или

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

Замечания

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

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