Теоретическая справка

Лабораторная работа.

Тема работы: Разработка приложения с сообщениями о некорректном вводе.

Цель работы: Приобретение практических навыков разработки приложений с проверкой вводимых пользователем данных.

Задание к работе:

1) изучить теоретический материал в лабораторной работе;

2) получить вариант индивидуального задания;

3) разработать алгоритм решения задачи;

4) написать и отладить программу;

5) подготовить ответы на контрольные вопросы.

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

1) постановка задачи индивидуального задания;

2) программа (текст рабочего модуля);

3) результаты работы программы;

4) выводы о проделанной работе.

ТЕОРЕТИЧЕСКАЯ СПРАВКА

Проверка вводимых символов в обработчике OnKeyPress.

Одним из событий текстового поля TEdit для проверки вводимых с клавиатуры символов является свойство OnKeyPress (вкладка Events à OnKeyPress). События клавиатуры возникают только в некоторых оконных компонентах (потомках класса TWinControl).

Разместим на форме текстовое поле TEdit.

В обработчике события нажатия клавиши OnKeyPress разместим следующий код:

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

Begin

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

end;

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

Использование компонента TMaskEdit (вкладка Additional).

Данный компонент предоставляет возможность задания маски для вводимых данных. Для задания маски необходимо в свойствах (Properties) найти пункт EditMask. Он предоставляет возможность выбора заранее созданного шаблона или ввода своего собственного регулярного выражения.