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

Информатика. Программирование в Delphi
114
//для расчета средней температуры
n:integer;
6. У формы Form1 в инспекторе объектов для события OnCreate созда-
дим процедуру FormCreate.
//происходит при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//назначение событиям OnKeyPress компонентов
//Edit1,Edit2 ,Edit3 процедуры EditKeyPress
//Ранее в других задачах эта процедура
//назначалась вручную в инспекторе объектов
//для каждого компонента Edit
Edit1.OnKeyPress:=EditKeyPress;
Edit2.OnKeyPress:=EditKeyPress;
Edit3.OnKeyPress:=EditKeyPress;
//стиль формы
Form1.BorderStyle:=bsDialog;
//начальные значения счетчиков
//температур и количества измерений
s1:=0;
s2:=0;
s3:=0;
n:=0;
end;
7. В инспекторе объектов у кнопки Button2 найдем событие OnClick и
создадим процедуру Button2Click.
//происходит при нажатии по кнопке Выход
procedure TForm1.Button2Click(Sender: TObject);
begin
//завершение работы приложения
Application.Terminate;
end;
8. В инспекторе объектов у кнопки Button1 найдем событие OnClick и
создадим процедуру Button1Click. В этой процедуре происходит считывание
значений температур, вычисление средних температур и общей средней для
всех резервуаров, а также запись содержимого поля Memo1 в файл Средняя
температура.txt (рис 7.6), находящийся в корневой директории нашего проекта
(рис. 7.7).