Оператор case

End.

Uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;

Type TForm1 = class(TForm)

{список интерфейсных элементов) Panel1: TPanel;

Button1: TButton;

BitBtnl: TBitBtn;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

{объявления обработчиков событий}

procedure Edit1KeyPress (Sender: TObject;var Key: Char); procedure Button1Click (Sender: TObject); end;

var Foxml: TForm1; implementation

{$R *.DFM}

{программный код обработчиков событий} procedure TForm1.Edit1KeyPress (Sender: TObject;

var Key: Char); begin

if not (key in [ '0'..'9',#8]) then key:=#0; end;

procedure TForm1.Button1Click (Sender: TObject); var X:word;

begin

X:= StrToInt(Edit1.Text);

if (X > 31) and (X<=255) then Edit2.text:=Chr(X)

else

if X <= 31 then Edit2.text := 'Управляющий символ'

else Edit2.text:= 'Символа нет^’;

end;

Оператор CASE имеет следующий синтаксис записи:

CASE <селектор> OF

Cl: <оператор 1>;

C2: <оператор 2>;

…………………

CN:<оператор N>

ELSE <оператор>;

End;

Условие ветвления - <селектор> - для оператора case задается выра­жением порядкового типа, cl... CN - CASE-константы должны совпадать! по типу с селектором. < оператор 1>... < операторы> - это операторы, из которых должен выполниться только один - тот, у которого соответствую­щая CASE-константа совпадет с селектором. Если не обнаружено ни одного совпадения селектора с какой-либо CASE-константой, выполняется опера­тор, записанный после else. Ветвь ELSE может отсутствовать. Тогда, если селектор не совпадет ни с одной CASE-константой, оператор case будет пропущен, т. е. не выполнится ни одного оператора внутри case. Например

VAR L: integer;

……………………

CASE L OF

0: Label1.Caption:» ‘Число нуль';

2,4,6,8: Label1. Caption:s= 'Четная цифра';

1,3,5,7,9: Label1.Caption:= ‘Нечетная цифра';

10..100: Label1.Caption:= 'Число от 10 до 100'; ELSE Label1.Caption:= 'Число L < 0 или L > 100'; End;

ПРИМЕР ПРИЛОЖЕНИЯ З

Усложним пример 1. Пусть вводятся два числа и знак операции, которую нужно выполнить с этими числами (+, -, /, *). Пусть числа (я, Ь) будут типа Integer. Следует обратить внимание на то, что а/b дает вещественное число.

Интерфейс можно представить в виде формы (рис. 15), содержащей сле­дующие объекты: последовательно расположенные Label1, Edit1, Label3, Edit3, LabeI2, Edit2; Bevell с элементами Label4 и Edit4; Panel1, на которой расположены две кнопки Button1 и BitBtnl. Компонент TBevel расположен на странице Additional палитры компонентов. С его помощью на форме можно отображать различные прямоугольные области в виде углублений, рамок или просто линий, что позволяет придавать сегментам форм трехмер­ный вид. Свойство Shape (очертание) определяет, отображается ли рамка, углубление или линия. Для Bevell установлено значение этого свойства! равное bsSpacer. Компонент Edit3 служит для ввода знака арифметическом операции. Для записи знака вводимой операции выберем переменную типД перечень Operat (Cperat = (Plus, Minus, Mult, Divide, None)).

Рис. 15

Переменные а, ь, operat объявим глобально, потому что они будут использоваться для обмена информацией между различными обработчиками событий. Понадобятся следующие обработчики событий:

• ограничение ввода с помощью OnKeyPress для Edit1, Edit2, Edit3;

• присваивание значений глобальным переменным - событие возникает
при потере каким-либо элементом фокуса (OnExit) - 3 обработчика;

• обработка нажатия на кнопку Button1.

Для отображения результатов расчета служит объект Edit4. Так как при делении получается вещественное число, для отображения этого числа на экране понадобится функция преобразования этого числа (Z) в строку -FloatToStr(Z). Эта функция позволяет выполнить неформатированное пре­образование вещественного числа в строку (кстати, StrToFIoat(S) преобра­зует строку (S) в вещественное число). Для форматированного преобразова­ния используется процедура FormatFIoat, которая преобразует веществен­ное число в заданный вид в соответствии с заданным форматом. Рассмотрим один формат преобразования вещественного числа - '0.00'. Этот формат по­зволяет представить число на экране с двумя знаками после запятой. Проце­дура имеет два параметра, например FormatFloat('0.00% Z), где Z - вещест­венное число.

Теперь можно привести текст программы модуля, в котором демонстри­руется применение типа перечень.

unit prim3;

Дата добавления: 2014-12-29