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

Информатика. Программирование в Delphi
140
Листинг 9.1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
//объявление компонентов
RadioGroup1: TRadioGroup;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
RadioGroup2: TRadioGroup;
Button1: TButton;
Label3: TLabel;
//объявление процедур
procedure RadioGroup1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.RadioGroup1Click (Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:begin
Label1.Caption:='Напряжение (В)';
Label2.Caption:='Сопротивление (Ом)';
RadioGroup2.Items.Clear;
RadioGroup2.Items.Add('A');
RadioGroup2.Items.Add('мA');
end;
1:begin
Label1.Caption:='Сила тока (А)';