Ситкин. Информатика. Программирование в DELPHI

Защитные конструкции можно строить на основе алгоритмов ветвления и выбора. Разработаем и реализуем алгоритм проверки каждого вводимого с клавиатуры символа на допустимость (рис. 6.1).

начало

К числу допустимых символов отнесены цифры и разрешено удаление ошибочного символа (клавиша Backspace клавиатуры). Если нажата соответствующая клавиша, то никаких отменяющих действий не последует. Разрешён также ввод знака минуса или запятой при условии, что аналогичный символ не был уже поставлен, в противном случае повторный символ заменяется пустым символом. Все осталь-

ные вводимые символы также не пропечатаются.

71

Реализуем предложенный алгоритм посредством процедуры обработки события OnKeyPress для компонента Edit1. При этом потребу-

ется функция для работы со строкой символов: Pos( символ , стро-

ка ) возвращает номер позиции символа в строке, если указанного символа нет в строке, то возвращает ноль.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case Key of // Key код нажатой клавиши

'0'..'9' : ; // реакции на цифру нет после двоеточия пустой оператор

позиция минуса отлична от нуля (т.е. минус уже есть), то второй заменяется пу-

стым символом}

',' : if Pos(',', Edit1.Text)<>0 then Key:=#0; {если в поле Edit1

позиция запятой отлична от нуля (т.е. запятая уже есть), то вторая заменяется пустым символом}

else Key:=#0; // любой другой символ (ветвь else) заменяется пустым end; // конец оператора case

end; // конец процедуры

Замечание. Если вводимое число должно быть целым, то запятая является недопустимым символом, соответствующие элементы в блок-схеме и процедуре должны быть удалены.

Обычно на форме присутствует несколько компонентов для ввода чисел. В связи с этим необходимо несколько раз прописывать по сути один и тот же текст процедуры контроля синтаксиса, изменяя лишь имена компонентов ввода, а объём программного кода при этом значительно возрастает. Возникает целесообразность однократно

72

написать пользовательскую процедуру проверки на допустимость аб-

страктного (формального) символа из абстрактного (формального)

поля, а затем вызывать эту пользовательскую процедуру в процедурах обработки события OnKeyPress для различных компонентов несколько раз, передавая в пользовательскую процедуру на проверку в виде фактических параметров конкретный символ конкретного поля ввода.

implementation

{$R *.dfm}

procedure Control(var Symbol:char; Pole:string);

begin

case Symbol of

'0'..'9': ; #8: ;

' ': if Pos(' ', Pole)<>0 then Symbol:=#0; ',': if Pos(',', Pole)<>0 then Symbol:=#0; else Symbol:=#0;

end;

end;

procedure TForm1.Edit1KeyPress(Sender:TObject; var Key: Char);

begin

Control(Key, Edit1.Text);

end;

procedure TForm1.Edit2KeyPress(Sender:TObject; var Key: Char);

begin

Control(Key, Edit2.Text);

end;

…………...…

73

числа, значение которого получает переменная, например, x. Мы уже выше разработали для него процедуру обработки события Edit1KeyPress, контролирующую каждый вводимый символ в поле с клавиатуры, но этого недостаточно. Пусть какие-то вычисления с x и

дальнейший вывод результата происходит при наступлении события Button1Click. В соответствии с алгоритмом процедура примет вид

procedure TForm1.Button1Click(Sender: TObject);

var x:real;

begin

if (Edit1.Text='') //если поле Edit1 пустое

or (Edit1.Text=' ') //или в поле Edit1 минус (лишь только минус)

or ((Pos(' ',Edit1.Text)<>0) and (Pos(' ',Edit1.Text)<>1))

{или позиция минуса в поле Edit1 отлична от нуля и отлична от единицы,

что означает, что минус есть и он не первый}

then //то

begin

ShowMessage('нарушение синтаксиса х'); //вывод сообщения

Exit; //досрочное завершение процедуры, остальное пропустится

end;

x:=StrToFloat(Edit1.Text); //считывание из поля Edit1 и преобразов. в x

…………...….//некоторые вычисления с использованием переменной x

Label2.Caption:=FloatToStr…..//вывод результата

end;

Возможен и другой способ. Можно не дополнять процедуру с основными вычислениями проверкой наличия трёх возможных син-

таксических ошибок. Тогда следует при разработке формы установить значение False свойства Enabled командной кнопки Button1 в окне

75

Object Inspector, это значит, что кнопка Button1 будет изначально не-

доступна при запуске формы для исключения начала счёта при пустом поле Edit1. Кнопка должна оставаться таковой, пока в поле Edit1

записано число с синтаксической ошибкой (одной из трёх, что описа-

ны выше). На рис. 6.3 показана соответствующая блок-схема ал-

procedure TForm1.Edit1Change(Sender: TObject); begin

if (Edit1.Text='') //если поле Edit1 пустое

or (Edit1.Text=' ') //или в поле Edit1 минус (лишь только минус)

or ((Pos(' ',Edit1.Text)<>0) and (Pos(' ',Edit1.Text)<>1))

{или позиция минуса в поле Edit1 отлична от нуля и отлична от единицы}

then //то

Button1.Enabled:=False //кнопка недоступна

else //иначе

Button1.Enabled:=True //кнопка доступна end;

Эта процедура обработки события Edit1Change даёт достаточный результат только в паре с процедурой обработки события Edit1KeyPress, как и дополненная контролем Button1Click только в паре с Edit1KeyPress.

76

Конструкции контроля процедуры Edit1Change или Button1Click

также целесообразнее оформить в виде пользовательской подпро-

граммы, если компонентов ввода несколько, как это было с процедурой Edit1KeyPress, чтобы несколько раз не писать по сути одно и то же.

Причем такая подпрограмма должна ответить только на один вопрос:

implementation

{$R *.dfm}

function Control2(Stroka:string):boolean;

begin

if (Stroka='') or (Stroka=' ')

or ((Pos(' ', Stroka)<>0) and (Pos(' ', Stroka<>1)) then Control2:=true else Control2:=false;

end;

procedure TForm1.Button1Click(Sender: TObject); var x, y:real;

begin

if Control2(Edit1.Text) then

begin ShowMessage('нарушение синтаксиса х'); Exit; end;

x:=StrToFloat(Edit1.Text);

77

if Control2(Edit2.Text) then

begin ShowMessage('нарушение синтаксиса y'); Exit; end;

y:=StrToFloat(Edit2.Text);

…………...….

Задание

Дополнить проекты предыдущей лабораторной работы кон-

струкциями контроля синтаксиса вводимых данных.

Содержание отчёта

цель работы и полная формулировка задания;

блок-схемы алгоритмов конструкций контроля синтаксиса;

тексты модулей дополненных проектов;

примеры работы приложений с указанием компонентов при наличии в полях ввода данных с синтаксическими ошибками;

выводы по работе.

Последующие проекты должны содержать конструкции кон-

троля вводимых данных предполагаемым пользователем, обеспечи-

вающих корректную работу приложений при любых данных ввода.

Контрольные вопросы

1.С какой целью следует контролировать вводимые данные?

2.Почему, помимо контроля вводимого с клавиатуры символа на до-

пустимость, следует предусматривать и другой контроль, например,

дополнять им процедуру с вычислениями или блокировать кнопку?

3. По какой причине конструкции контроля целесообразно оформлять в виде собственных (пользовательских) подпрограмм? Почему ещё целесообразнее эти подпрограммы поместить в собственный модуль?

78

Лабораторная работа № 7

АЛГОРИТМЫ ПОВТОРЕНИЙ

Цель работы приобретение умений разработки и программной реализации циклических алгоритмов.

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

В программировании возможность реализовать циклические алгоритмы обеспечивается операторами цикла.

Оператор цикла с предварительным условием

Это универсальный оператор цикла, он имеет следующий вид while условие do оператор S

где while и do служебные слова; условие переменная или выра-

жение логического типа; оператор S оператор, называемый телом цикла. Блок-схема алгоритма, реализуемого оператором цикла с предусловием, представлена на рис. 7.1. Перед

нет каждой итерацией определяется значение

условия , пока оно принимает значение True,

выполняется оператор S . Оператор S может быть составным. Т.е. если необходимо, чтобы в цикле выполнялось несколько операторов, то

их необходимо заключить в операторные скобки begin и end. Если условие принимает

значение False с самого начала, то тело цикла не выполнится ни разу.

79

80