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

Информатика. Программирование в Delphi
91
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
r:integer;
d:real;
k:real;
begin
if (Edit1.Text<>'') and (Edit2.Text<>'') then
begin
r:=StrToInt(Edit1.Text);
k:=StrToFloat(Edit2.Text);
if k=0 then
begin
ShowMessage('Курс не должен быть равен нулю!!!');
Exit;
end;
d:=r/k;
Label3.Caption:=Edit1.Text+#32+
'руб. это'+#32+FloatToStrF(d,ffFixed,15,2)+#32+'дол.';
Edit1.Text:='0';
Edit2.Text:='0';
end
else
begin
ShowMessage('Введите количество рублей или курс доллара!!!');
Exit;
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8:
else
key:=#0;
end;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8:;