Lazarus 3. Арифметические вычисления с помощью tEdit

Лабораторная работа № 3. Элемент управления  tEdit — текстовое поле

Инструментарий:

Выполнение:

1. Внимание! Называйте все объекты согласно правилам именования объектов, принятых в Lazarus. В таблице или в скобках будет указан возможный вариант для имени создаваемого объекта.
2. Создайте новый проект (Вычисление), назовите его форму frmSumma, а свойству Caption задайте значение Вычисление суммы.
3. Создайте и самостоятельно запрограммируйте кнопку Выход (btnExit) .
4. Создайте три элемента управления tEdit (txtA, txtB, txtC) для слагаемых. Задайте свойство Text для этих элементов управления, равное 0.
5. Создайте еще один элемент управления TextBox (txtSumma) (размеры и расположение кнопок см. рис «форма Вычисление_суммы»). Установите его свойство Text равное 0.
6. Создайте кнопку Вычислить (btnCount), задайте ей соответствующе свойства Caption и Name.
7. Запрограммируйте событие Click для кнопки Вычислить следующим образом:

procedure TForm1.btnCountClick(Sender: TObject);
 
begin
 
txtSumma.text:= FloatToStrF(StrToFloat(txtA.Text) + StrToFloat(txtB.Text) + StrToFloat(txtC.Text),ffFixed,2,2);
 
end;

Функция StrToFloat () преобразует текстовое значение в дробное число

Функция FloatToStrF() преобразует дробное число типа Float в текстовое значение, параметр ffFixed — константа, вписывается без изменений, третий параметр — ширина поля, отводимого под всё число, четвертый параметр  — количество цифр в дробной части

 

8. Запустите приложение, введите значения для слагаемых и посмотрите, что произойдет, если Вы нажмете на кнопку Вычислить.
9. Сохраните проект.