Упражнения. 1. Создать форму с пятью полями редактирования и пятью соответствующими надписями, которые поясняют

1. Создать форму с пятью полями редактирования и пятью соответствующими надписями, которые поясняют, какой вид проверки осуществляет соответствующий компонент Edit. Форма также содержит кнопку для проверки содержимого первого поля редактирования.

2. Записать следующий код для события OnClick кнопки:

Var

Number,Code:Integer;

Begin

if Edit1.Text<>‘ ’

Then begin

Val(Edit1.Text,Number,Code);

if Code <> 0

Then begin

Edit1.SetFocus;

MessageDlg(‘ Not a number in the

first edit ‘,mtError,[mbOK],0);

End;

End;

End;

3. Для события OnExit компонента Edit2 записать следующий код

Var

Number,Code:Integer;

Begin

if (Sender as TEdit).Text <> ‘ ’

Then begin

Val((Sender as TEdit).Text,Number,Code);

if Code <> 0

Then begin

(Sender as TEdit).SetFocus;

MessageDlg(‘The edit field number ‘ +

IntToStr((Sender as TEdit).Tag)+‘does not

have a valid number’,mtError,[mbOK],0);

End;

End;

End;

Этот код можно использовать для любого компонента TEdit. Текст сообщения об ошибке можете написать свой.

4. Третий компонент Edit выполняет аналогичную проверку при каждом изменении его содержимого (используя событие OnChange).

5. Компонент Edit имеет событие OnKeyPress, которое соответствует нажатию клавиши пользователем. Записать код для этого события компонента Edit4:

Begin

if not (key in[‘0’..‘9’,#8]}