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

Информатика. Программирование в Delphi
129
'0'..'9',#8:;
',','.':
begin
key:=DecimalSeparator;
if pos(key,Edit3.Text)<>0 then
key:=#0;
end;
#13:
if RadioButton1.Checked then
RadioButton1.SetFocus
else
RadioButton2.SetFocus
else
key:=#0;
end;
end;
procedure TForm1.RadioButton1Click(Sender: Tobject);
begin
Label2.Caption:='Срок (дней)';
Label4.Caption:='';
Button1.SetFocus;
end;
procedure TForm1.RadioButton2Click(Sender: Tobject);
begin
Label2.Caption:='Срок (мес.)';
Label4.Caption:='';
Button1.SetFocus;
end;
procedure TForm1.Button1Click(Sender: Tobject);
var
summ:real;
srok:word;
pr:real;
dohod:real;
buf:real;
i:word;
begin
summ:=StrToFloat(Edit1.Text);
srok:=StrToInt(Edit2.Text);
pr:=StrToFloat(Edit3.Text);
if (Length(Edit1.Text)=0) or (Length(Edit2.Text)=0) or