if RadioGroup1.ItemIndex <>3 than {вывод результата операций}
Edit3.text:=F1oatToStrF(c,ffGeneral,10,4) {преобразование результата вещественного деления в текстовую строку}
else if b<>0 then Edit3.text:=FloatToStrF(c,ffGeneral,10.4) end else ShowMessage('He заданызначения'); end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin {разрешить ввод в Edit1 только цифр}
if not (Key in ['0'..'9','+','-']) then Key:=#0; end; procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin {разрешить ввод в Edit2 только цифр}
if not (Key in ['0'..'9','+','-']) then Key:=#0; end; end.
Сохраните, откомпилируйте и запустите приложение на выполнение. Попробуйте ввести в качестве значений операндов не цифры, а символы и убедитесь, что созданные выше обработчики событий. OnKeyPress для Edit1 и Edit2 не позволяют пользователю вести нецифровую информацию. Закройте окно приложения.
Лабораторная работа №4
Создайте приложение, предлагающее пользователю ввести строку, определяющее количество символов в ней и выводящее результат, согласуя окончание слова «символов» с числом символов, например, «В тексте 1 символ», «В тексте 32 символа», «В тексте 47 символов».
1. Создайте форму и разместите на ней компоненты: Edit1, Label1, Label2, Button1, как показано на рис. 41.
2. Задайте значения свойств Label1.Caption — «Введите текст», Label2.Caption — «В тексте», Button1.Caption — «Вычислить».
3. Удалите текст Edit1 из соответствующего компонента. Выровняйте компоненты на форме.
4. Для вычисления количества символов во введенной строке и вывода результатов создайте процедуру обработчика события щелчка мышью на кнопке Button1. Выберите в окне Инспектора объектов объект Button1, затем на странице Событий произведите двойной щелчок мышью на пустом поле списка в событии OnClick. После этого в окне Редактора кода будет сгенерирована заготовка процедуры обработчика события procedure TForm1.Button1Click (Sender: TObject);.