Оператор Case

[Lomanu4]

Оператор case является альтернативой оператору if. Оператор case сопоставляет элемент, именуемый селектором, со списком элементов, и при обнаружении совпадениявыполняет соответствующий код. Пример:

procedure TForm1.Create(Sender: TObject);
var
     value: Integer;
begin

value:=5;

case value of
   1: ShowMessage ('Item 1 selected');
   2: ShowMessage ('Item 2 selected');
   3: ShowMessage ('Item 3 selected');
   4: ShowMessage ('Item 4 selected');
   5: ShowMessage ('Item 5 selected');
   else
       ShowMessage ('No Item selected');
   end;
end;

Поскольку селектор value изначально установлен равным 5, то отображается сообщение "Item 5 selected". Селектор обязательно должен иметь перечислимый тип, т.е. он определяет значения, подлежащие подсчету. Рассмотрим еще один пример:

procedure TForm1.Create(Sender: TObject);
var
     selector: Char;
begin

selector:='B';

case selector of
   'A': ShowMessage ('Item A selected');
   'B': ShowMessage ('Item B selected');
   'C': begin
         ShowMessage ('Item C selected');
         end
   else
       ShowMessage ('No Item selected');
   end;
end;

Обратите внимание, в операторе case также применим блок begin...end.