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

Информатика. Программирование в Delphi
113
//происходит при нажатии клавиши в полях Edit
//общая процедура для всех компонентов Edit
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
var
//переменная типа TEdit
Edit:TEdit;
begin
//получение ссылки на объект Edit,
//на котором произошло событие
Edit:=Sender as TEdit;
case key of
//разрешен цифровые клавиши и забой BackSpace
'0'..'9',#8:;
//нажаты запятая или точка
',','.':
begin
//в поле точка и запятая заменяются
//десятичным разделителем
key:=DecimalSeparator;
//не позволяет вводить десятичный разделитель
//повторно в одну строку
if pos(key,Edit.Text)<>0 then
key:=#0;
end;
//остальные символы игнорируются
else
key:=#0;
end;
end;
5. В разделе объявления глобальных переменных объявим переменные:
t1, t2, t3 – температуры жидкости в резервуарах;
s1, s2, s3 – счетчики (суммы) температур;
n – количество измерений температур
var
//форма
Form1: TForm1;
//температура жидкости в резервуарах
t1,t2,t3:real;
//сумма температур в резервуарах
s1,s2,s3:real;
//количество измерений температур