Инструкция case в Delphi

01.case
02.Селектор
03.of
04.список!:
05.begin
06.{ инструкции 1 )
07.end;
08.слисок2:
09.begin
10.{ инструкции 2 }
11.end;
12.списокn:
13.begin
14.{ инструкции N}
15.end;
16.else
17.begin
18.{ инструкции}
19.end;
20.end;

 

где: П Селектор — выражение, значение которого определяет дальнейший ход выполнения программы (т. е. последовательность инструкций, которая будет выполнена);

Управляющие структуры языка Delphi 99П Список n — список констант. Если константы представляют собой диапазон чисел, то вместо списка можно указать первую и последнюю константу диапазона, разделив их двумя точками. Например, список 1, 2, 3,4, 5, 6 может быть заменен диапазоном 1..6.

Выполняется инструкция case следующим образом:

  1.  Сначала вычисляется значение выражения-селектора.
  2.  Значение выражения-селектора последовательно сравнивается с кон-стантами из списков констант.
  3.  Если значение выражения совпадает с константой из списка, то выпол-няется соответствующая этому списку группа инструкций. На этом вы-полнение инструкции case завершается.
  4.  Если значение выражения-селектора не совпадает ни с одной констан-той из всех списков, то выполняется последовательность инструкций,следующая за else.

Синтаксис инструкции сазе позволяет не писать else и соответствующуюпоследовательность инструкций. В этом случае, если значение выраженияне совпадает ни с одной константой из всех списков, то выполняется следующая за case инструкция программы.

Ниже приведены примеры инструкции саsе: 

02.case n_day of
03.1,2,3,4,5: dау:='Рабочий день.'
04.6: day: = 'Суббота! ' ;
05.7: dау:='Воскресенье! ' ;
06.end;
07.case n_day of
08.1..5: dау:='Рабочий день.';
09.6: dау: = 'Суббота! ' ,-
10.7: dау:='Воскресенье! ' ;
11.end;
12.case n_day of
13.6: day: =' Суббота! ' ;
14.7: day:='Воскресенье!';
15.else day:='Рабочий день!' ;
16.end;
dle

Помоги проекту! Расскажи друзьям об этом сайте: