Языки программирования

Листинг 5.4. Ввод 11-значного телефонного номера

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

if ((KEY<'0') or (KEY>'9') or (Length(Edit1.Text)>=11)) and (KEY<>#8) then {#8 — код

клавиши Backspace} begin

Key:=#0;

if (Length(Edit1.Text)>=11)=false then

ShowMessage('Допускаются только цифры!') else

ShowMessage('Длина текста превысила 11 знаков!') end;

end;

Событие осуществляет контроль верности ввода телефонного номера в строку ввода Edit1. Процедура допускает ввод только цифр, причем длина номера не должна превышать 11 символов. В противном случае ввод ошибочного символа отменяется (параметру-переменной Key присваивается значение #0) и выдается сообщение об ошибке.

Задание

Вариант 1

Разработайте приложение, состоящее из одной формы и нескольких (не менее 10) произвольных элементов управления.

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

Замечание Постарайтесь, чтобы листинг программы не превысил 100 строк кода!

55

СКФУ Кафедра компьютерной безопасности

Языки программирования

Вариант 2

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

Замечание Постарайтесь, чтобы листинг программы не превысил 200 строк кода!

Вариант 3

Разработайте приложение позволяющее осуществлять перетаскивание (интерфейс drag and drop) текстовых надписей из одного списка (компонент TListBox) в другой.

Замечание Постарайтесь, чтобы листинг программы не превысил 80 строк кода!

Вариант 4

Разработайте приложение содержащее не менее 5 компонентов TImage. Загрузите в один из компонентов рисунок. Реализуйте интерфейс (drag and drop) позволяющий осуществлять перетаскивание текстовых надписей из одного компонента в другой.

56

СКФУ Кафедра компьютерной безопасности

Языки программирования

Замечание Постарайтесь, чтобы листинг программы не превысил 80 строк кода!

Вариант 5

Разработайте приложение позволяющее пользователю (используя только клавиатуру) изменять размеры и положение главной формы.

Замечание Постарайтесь, чтобы листинг программы не превысил 60 строк кода!

57

СКФУ Кафедра компьютерной безопасности