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

Информатика. Программирование в Delphi
136
//добавление кнопки в компонент RadioGroup2
RadioGroup2.Items.Add('кВ');
end;
// выбрана кнопка Сопротивление (номер кнопки 2)
2:begin
//изменение заголовка компонента Label1
Label1.Caption:='Сила тока (А)';
//изменение заголовка компонента Label2
Label2.Caption:='Напряжение (В)';
//удаление всех кнопок (элементов массива Items)
//компонента RadioGroup2
RadioGroup2.Items.Clear;
//добавление кнопки в компонент RadioGroup2
RadioGroup2.Items.Add('Ом');
//добавление кнопки в компонент RadioGroup2
RadioGroup2.Items.Add('КОм');
end;
end;
//изменение заголовка компонента Label3
Label3.Caption:='';
//изменение текста компонента Edit1
Edit1.Text:='0';
//изменение текста компонента Edit2
Edit2.Text:='0';
//выбор кнопки с номером 0
RadioGroup2.ItemIndex:=0;
end;
7. Создадим процедуру Edit1KeyPress для обработки события
OnKeyPress компонента Edit1. Оформим ее следующим образом.
//происходит при нажатии клавиши в поле Edit1
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
//разрешены цифровые клавиши и забой (BackSpace)
'0'..'9',#8:;
//в качестве разделителей в числе разрешены точка и запятая
',','.':
begin
//точка и запятая заменяются на десятичный разделитель
key:=DecimalSeparator;
//запретим ввод десятичного разделителя в одно число два раза
if pos(key,Edit1.Text)<>0 then