Иллюстрированный самоучитель по Delphi 7 для начинающих

Инструкция case

case n_day of
1.2.3.4.5: day: = 'Рабочий день. ';
6: day: = 'Cyббoтa!';
7: day: = 'Воскресенье!';
end;
case n_day of
1..5: day: = 'Рабочий день.';
6: day: = 'Суббота!';
7: day: = 'Воскресенье!';
end;
case n_day of
6: day: = 'Суббота!';
7: day: = 'Воскресенье!';
else day: = 'Рабочий день.';
end;

В качестве примера использования инструкции case рассмотрим программу, которая пересчитывает вес из фунтов в килограммы. Программа учитывает, что в разных странах фунт "весит" по-разному. Например, в России фунт равен 409.5 граммов, в Англии – 453.592 грамма, а в Германии, Дании и Исландии фунт весит 500 граммов.

В диалоговом окне программы, изображенном на рис. 2.8, для выбора страны используется список Страна.

Рис. 2.8. Диалоговое окно программы Пример использования case