ВУЗ:
Составители:
Рубрика:
11
StrToInt(EditOperand2.Text));
end;
Программа, обеспечивающая обычное деление, должна отличаться тем, что
результат деления целого числа на другое целое - уже не целое число. Следовательно,
Вы не можете использовать преобразование IntToStr для получения строкового
результата, вместо него надо использовать FloatToStr. В остальном программа
обработчика события деления подобна всем предыдущим программам.
Теперь Ваш калькулятор поддерживает все арифметические операторы. Вы
можете проверить, как он работает, запустив программу на выполнение и введя
несколько чисел в поля операндов. После нажатия функциональной клавиши результат
будет показан в поле результата.
2 Усовершенствование калькулятора
В некоторой степени калькулятор всё ещё не очень дружественен к
пользователю. Вам ещё надо программно поддержать кнопку очистки Clear и
динамическое изменение метки знака вопроса, чтобы их смысл был более очевиден.
Дважды нажмите кнопку Clear (компонент BtnClear) внутри окна
проектировщика формы.
Введите следующий текст во вновь сгенерированный обработчик события:
procedure TForm1.BtnClearClick(Sender: TObject);
begin
EditOperand1.Text:='';
EditOperand2.Text:='';
EditResult.Text:='';
LabelOperator.Caption:='?';
LabelResult.Caption:='?';
end;
Эта программа очищает окна редактирования операндов и результата, а также
устанавливает метки в виде знака вопроса. Все эти шаги очищают дисплей
калькулятора.
LabelOperator указывает, какая операция калькулятора вызывалась последний
раз. Чтобы это работало, Вы должны установить символ операции в заголовок метки.
Добавьте следующий текст в обработчик события BtnAddClick:
LabelOperator.Caption:=BtnAdd.Caption;
LabelResult.Caption:='=';
Программа, которую Вы ввели, гарантирует, что всякий раз, когда нажата
кнопка плюса, в качестве метки операции появится символ “+”. Кроме того, всякий раз,
когда окно редактирования результата показывает правильный результат вычисления,
метка результата изменится на знак “=“.
