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

Информатика. Программирование в Delphi
115
Рис. 7.6 Рис. 7.7
//происходит при нажатии по кнопке Добавить
procedure TForm1.Button1Click(Sender: TObject);
var
//переменная типа TDateTime
//хранит дату и время
t:TDateTime;
begin
//если одно из полей не заполнено
if (Edit1.Text='')or(Edit2.Text='')or(Edit3.Text='') then
begin
//вывод сообщения
ShowMessage('Необходимо заполнить все поля...');
//выход из процедуры
exit;
end;
//считывание температур жидкости из полей Edit
t1:=StrToFloat(Edit1.Text);
t2:=StrToFloat(Edit2.Text);
t3:=StrToFloat(Edit3.Text);
//вычисление значений счетчиков температур
s1:=s1+t1;
s2:=s2+t2;
s3:=s3+t3;
//увеличение количества измерений температур
n:=n+1;
//считывание в переменную t системного времени
t:=Now;