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

Информатика. Программирование в Delphi
106
Edit:TEdit;
begin
Edit:=Sender as TEdit;
case key of
'0'..'9',#8:;
',','.':
if Edit.Tag=0 then
key:=#0
else
begin
key:=DecimalSeparator;
if pos(key,Edit.Text)<>0 then
key:=#0;
end;
else
key:=#0;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:real;
begin
if (Edit1.Text='') or (Edit2.Text='') or
(Edit3.Text='') or (Edit4.Text='') or
(Edit5.Text='') or (Edit6.Text='') or
(Edit7.Text='') or (Edit8.Text='') then
begin
ShowMessage('Необходимо заполнить все поля!!!');
Exit;
end
else
begin
s:=StrToInt(Edit1.Text)*StrToFloat(Edit2.Text)+
StrToInt(Edit3.Text)*StrToFloat(Edit4.Text)+
StrToInt(Edit5.Text)*StrToFloat(Edit6.Text)+
StrToInt(Edit7.Text)*StrToFloat(Edit8.Text);
Label9.Caption:='Прибыль завода:'+#32+
FloatToStrF(s,ffFixed,10,4)+#32+'руб.';
end;
end;
end.