Стр. 268 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
268
f:=1;
end;
end;
14. В инспекторе объектов для кнопки С (cброс) создайте процедуру
cClick – обработчик события OnClick.
//выполняется при щелчке по кнопке C
procedure TForm1.cClick(Sender: TObject);
begin
//число на индикаторе
Edit1.Text:='0';
//начальное значение аккумулятора
accum:=0;
//начальное значение операции
oper:=0;
//ожидание первой цифры
f:=0;
end;
15. Запустите приложение рис. 23.25.
Рис. 23.25
16. Окончательный вариант приложения приведен в листинге 23.1. Ком-
ментарии удалены.
Листинг 23.1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, Buttons, StdCtrls;
type
TForm1 = class(TForm)