logo search
Методичка_Delphi_Ч1

Оператор варианта case

Конструкция case позволяет эффективно реализовать множественные разветвления в тех случаях, когда выбор определяется значениями переменной порядкового типа (integer, char, boolean).

Синтаксис оператора case представлен на рисунке 4.7.

Рисунок 4.36 – Синтаксис оператора case

В этом описании <селектор> - это выражение, значение которого определяет дальнейшее выполнение инструкции. В частном случае <селектор> может быть просто переменной. В языке Object Pascal селектор может быть только порядкового типа, например, целое число или символ.

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

Оператор определяет действия, которые должны быть выполнены, если селектор принимает одно из значений списка. В качестве оператора может использоваться и составной оператор.

Порядок выполнения инструкции case описан ниже.

В качестве примера рассмотрим процедуру, которая проверяет вводимые символы на принадлежность к множеству символов, допустимых для вещественных чисел. Такими символами являются цифры, один десятичный разделитель (точка или запятая, в зависимости от настройки Windows) и знак минус в первой позиции.

Анализируемый символ, который относится к типу char, передается в процедуру как параметр. Этот параметр, названый symbol, передается по наименованию, следовательно, его можно не только анализировать, но и изменять. Процедура использует эту возможность.

Если вводимый символ является цифрой, то процедура ничего не делает и символ не меняется. Пропускается без изменений символ «Забой» с кодом #8. Это позволяет удалять введенные символы с помощью клавиши «BackSpace». Пропускается и символ «Возврат каретки» с кодом #13.

Символы запятая и точка преобразуются в символ DecimalSeparator, который может быть точкой или запятой, в зависимости от настройки Windows.

procedure testRealKey(var symbol:char; text:String);

begin

case symbol of

'0'..'9', #8, #13 : ; //Эти символы пропускаются, никаких действий нет

',', '.' : // Запятая и точка преобразуются в десятичный разелитель,

begin // но не более одного раза

symbol:=DecimalSeparator;

if pos(DecimalSeparator,text)<>0 then symbol:= #0;

end;

'-': // Минус допустим только в начале

if length(text)<>0 then symbol:=#0;

else {case symbol}

symbol:=#0;

end {case symbol};

end;

Десятичный разделитель может появиться в любом месте, но только один раз. Для того, чтобы можно было осуществить такую проверку, в процедуру передаются уже набранные символы числа в виде параметра text. Поиск символа DecimalSeparator в набранном тексте производится с помощью стандартной функции pos(), определяющей позицию символа в строке. Функция вернет ноль, если символ не будет найден. Если же функция возвращает не ноль, то вводимый символ заменяется пустым, который имеет код #0.

Символ «минус» может появиться только в начале текста, то есть длина текста при появлении минуса быть рана нулю. Для определения длины строки используется стандартная функция length(). Если длина строки не равна 0, то минус заменяется пустым символом.

Все остальные символы, процедура меняет на пустой символ.

Процедуру можно включить в состав дополнительного модуля и использовать для коррекции ввода числовых данных в текстовые поля.