If s <> '0' then

Edit1.Text:= s;

{а если там 0, то ещё один 0 дописать нельзя}

end;

f) Сохраните проект, запустите его и проверьте, правильно ли работает кнопка с заголовком “1”;

g) За счет использования оператора (Sender as TButton) процедура обработки щелчка для кнопки с заголовком “1” стала универсальной и может быть использована без изменения для обработки щелчка по любой другой кнопке с цифрой. Выделите все кнопки с цифрами и в Инспекторе Объектов для события OnClick выберите соответствующей обработчик;

h) Сохраните проект, запустите его и проверьте, правильно ли работают кнопки с цифрами;

i) Обработайте событие OnClick для кнопки сброса “C”;

j) Сложение двух чисел будем производить по следующим этапам:

· В строку редактирования необходимо ввести 1-ое число;

· Нажать кнопку “+”, после чего калькулятор ещё не выполнит сложение, а лишь запомнит первое число в переменную x и знак операции в переменную o, также очистит строку редактирования для ввода следующего числа;

· В строку редактирования вводим 2-ое число;

· По нажатию на кнопку “=” выполняется действие, и результат отображается в строке редактирования.

· При реализации арифметических действий необходимо преобразовывать число в строку и наоборот. В Object Pascal есть стандартные функции для выполнения этих преобразований:

StrToFloat(a: string) – возвращает вещественное число;

FloatToStr(c: real) – возвращает строку.

k) Для реализации действия сложения необходимо:

· Описать глобальные переменные x и o;

· Обработать событие OnClick для кнопки “+” следующим образом:

x:= StrToFloat(Edit1.Text);

o:= (Sender as TButton).Caption[1];

Edit1.Text:= '0';

· Обработать событие OnClick для кнопки “=” следующим образом:

Var

y: real;

Begin

y:= StrToFloat(Edit1.Text);

Дата добавления: 2015-08-17