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

Информатика. Программирование в Delphi
137
key:=#0;
end
//остальные клавиши запрещены
else
key:=#0;
end;
end;
Создадим процедуру Edit2KeyPress для обработки события OnKeyPress
компонента Edit2. Оформим ее следующим образом.
//процедура выполняется при нажатии клавиши в поле Edit2
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case key of
//разрешены цифровые клавиши и забой ( BackSpace)
'0'..'9',#8:;
//в качестве разделителей в числе разрешены точка и запятая
',','.':
begin
//точка и запятая заменяются на десятичный разделитель
key:=DecimalSeparator;
//запретим ввод десятичного разделителя в одно число два раза
if pos(key,Edit2.Text)<>0 then
key:=#0;
end
//остальные клавиши запрещены
else
key:=#0;
end;
end;
8. Создадим процедуру Button1Click для обработки события OnClick
компонента Button1. Оформим ее следующим образом.
//процедура выполняется при нажатии на кнопку Вычислить
procedure TForm1.Button1Click(Sender: TObject);
var
//сила тока, напряжение и сопротивление
I,U,R:real;
begin
//проверка полей ввода на заполнение (должны быть заполненными)
if (Edit1.Text='') or (Edit2.Text='') then
begin