01.case02.Селектор03.of04.список!:05.begin06.{ инструкции 1 )07.end;08.слисок2:09.begin10.{ инструкции 2 }11.end;12.списокn:13.begin14.{ инструкции N}15.end;16.else17.begin18.{ инструкции}19.end;20.end;
где: П Селектор — выражение, значение которого определяет дальнейший ход выполнения программы (т. е. последовательность инструкций, которая будет выполнена);
Управляющие структуры языка Delphi 99П Список n — список констант. Если константы представляют собой диапазон чисел, то вместо списка можно указать первую и последнюю константу диапазона, разделив их двумя точками. Например, список 1, 2, 3,4, 5, 6 может быть заменен диапазоном 1..6.
Выполняется инструкция case следующим образом:
- Сначала вычисляется значение выражения-селектора.
- Значение выражения-селектора последовательно сравнивается с кон-стантами из списков констант.
- Если значение выражения совпадает с константой из списка, то выпол-няется соответствующая этому списку группа инструкций. На этом вы-полнение инструкции case завершается.
- Если значение выражения-селектора не совпадает ни с одной констан-той из всех списков, то выполняется последовательность инструкций,следующая за else.
Синтаксис инструкции сазе позволяет не писать else и соответствующуюпоследовательность инструкций. В этом случае, если значение выраженияне совпадает ни с одной константой из всех списков, то выполняется следующая за case инструкция программы.
Ниже приведены примеры инструкции саsе:
02.case n_day of03.1,2,3,4,5: dау:='Рабочий день.'04.6: day: = 'Суббота! ' ;05.7: dау:='Воскресенье! ' ;06.end;07.case n_day of08.1..5: dау:='Рабочий день.';09.6: dау: = 'Суббота! ' ,-10.7: dау:='Воскресенье! ' ;11.end;12.case n_day of13.6: day: =' Суббота! ' ;14.7: day:='Воскресенье!';15.else day:='Рабочий день!' ;16.end;