Лабораторный практикум
жүктеу/скачать 2,64 Mb.
|
Delphi задачи
| var
Form1: TForm1; N,I: integer; М: array of integer; {описание динамического массива целых чисел} Рис. 6.1. Окно формы с компонентами 11. Для предупреждения ввода в окно Edit1 нечислового значения реализуем обработку события нажатия на клавишу в окне Edit1, чтобы запретить ввод любых символов, кроме цифр от 0 до 9. Для создания процедуры обработчика события нажатия на клавишу в окне Edit1 выберите в окне Инспектора объектов компонент Edit1 и на странице События дважды щелкните левой кнопкой мыши на пустом поле списка в событии On Key Press. После этого окно Редактора кода немедленно получит фокус и в разделе interface появится запись процедуры обработчика события: procedure Edit1KeyPress(Sender: TObject; var Key:Char); а в разделе implementation — текст заготовки этой процедуры: procedure Edit1KeyPress(Sender: TObject; var Key: Char); begin end; Вставьте в тело процедуры следующий оператор: if not (Key in ['0'..'9']) then Key:=#0; Действие этого оператора сводится к сравнению значения переменной Key с множеством значений ['0'..'9']. Если символ нажатой клавиши не входит в это множество, то Key присваивается значение нулевого символа (#0). 12. Таким образом, в окне Edit2 будет отображаться текст, состоящий только из цифр. 13. Создание массива целых чисел опишите в процедуре обработчика события щелчка мышью на кнопке Button1. Для создания процедуры обработчика события выберите в окне Инспектора объектов объект Button1, затем на странице События сделайте двойной щелчок на пустом поле списка в событии OnClick. После этого отредактируйте заготовку процедуры обработчика события procedure TForm1.Button1Click(Sender: TObject); в окне Редактора кода следующим образом: жүктеу/скачать 2,64 Mb. Достарыңызбен бөлісу:
|