Delphi Case Со Строками

Конструкция case...of в Delphi является заменой многочисленным вложенным if...then. Она позволяет определить различные действия, выполняемые в зависимости от значения переменной, переданной в качестве аргумента. Представим ситуацию, когда мы хотим создать строковую переменную, которая будет зависеть от значения переменной-счетчика (i) цикла:

var  i: integer;  s: string;begin  i := 3;  case i of    1: s := 'Один';    2: s := 'Два';    3: s := 'Три';    else s := 'Превышено максимальное значение';  end;  end;

В данном примере переменная i содержит значение 3, и при выполнении case именно эта ветка и будет выбрана, т.е. переменная s будет содержать текст "Три". Если переменная i примет значение за пределами диапазона case, будет выбираться ветка с else.

Конструкция case...of позволяет использовать не только целочисленные, но и строковые значения. Например, можно создать новый проект в Delphi и протестировать следующий код:

var  s: string;begin  s := 'green';  case s of    'red': ShowMessage('Вы выбрали красный цвет');    'blue': ShowMessage('Вы выбрали синий цвет');    'green': ShowMessage('Вы выбрали зеленый цвет');    else ShowMessage('Выбранный цвет неизвестен');  end;end;

В данном примере большинство возможных значений переменной s заведомо известно, и мы можем использовать case, чтобы сэкономить код.