• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Оператор Case

Lomanu4 Оффлайн

Lomanu4

Команда форума
Администратор
Сообщения
1,151
Симпатии
222
Баллы
155
VK
Оператор 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.
 
Вверх Снизу