var a, b : integer; {2 операнда - целые числа}
с : real; {частное - вещественное число}
В тело процедуры обработки события введите текст:
a:=StrToInt(Edit1.text); {преобразование текстовой строки в целое число}
b:=StrToInt(Edit2.text); с:=а/b; {выполнение операции вещественного деления и присваивание
результата переменной с}
Edit3.text:=FloatToStrF(c,ffGeneral,7,4); {преобразование вещественного числа в текстовую строку}
ПРИМЕЧАНИЕ Поскольку свойства text объектов Editl, Edit2 имеют строковые значения, для их преобразования в целые числа используется стандартная функция Object Pascal — StrToInt. Так как свойству Edit3.text нужно присвоить значение вещественного частного, то для преобразования вещественного числа в текстовую строку используется функция FloatToStrF.
12. Для получения справочной информации о синтаксисе функции FloatToStrF укажите курсором название функции и нажмите F1. В окне справки описано назначение параметров этой функции.
13. Откомпилируйте и запустите программу на выполнение при помощи команды Выполнить ► Выполнить или щелчка мышью на кнопке Выполнить в панели инструментов или нажатием клавиши F9. После этого на экране компьютера появится окно созданной вами формы с компонентами Edit1, Edit2, в которые можно вводить значения, как показано на рис. 23.
