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

Информатика. Программирование в Delphi
141
Label2.Caption:='Сопротивление (Ом)';
RadioGroup2.Items.Clear;
RadioGroup2.Items.Add('В');
RadioGroup2.Items.Add('кВ');
end;
2:begin
Label1.Caption:='Сила тока (А)';
Label2.Caption:='Напряжение (В)';
RadioGroup2.Items.Clear;
RadioGroup2.Items.Add('Ом');
RadioGroup2.Items.Add('КОм');
end;
end;
Label3.Caption:='';
Edit1.Text:='0';
Edit2.Text:='0';
RadioGroup2.ItemIndex:=0;
end;
procedure TForm1.Edit1KeyPress (Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8:;
',','.':
begin
key:=DecimalSeparator;
if pos(key,Edit1.Text)<>0 then
key:=#0;
end
else
key:=#0;
end;
end;
procedure TForm1.Edit2KeyPress (Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8:;
',','.':
begin
key:=DecimalSeparator;
if pos(key,Edit2.Text)<>0 then
key:=#0;
end
else