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

Информатика. Программирование в Delphi
148
key:=#0;
end;
end;
8. Создадим процедуру Button1Click для обработки события OnClick
компонента Button1. Оформим ее следующим образом.
//процедура возникает при щелчке мышью по кнопке Вычислить
procedure TForm1.Button1Click(Sender: TObject);
var
//дистанция
distance:real;
//цена бензина за один литр
price:real;
//потребление бензина на 100 км
consumption: real;
cost:real; //стоимость поездки
mes:string;
begin
//проверка всех полей ввода на заполнение,
//если хотя бы одно из полей незаполнено, то вывод сообщения
if (Edit1.Text='') or (Edit2.Text='') or
(Edit3.Text='') then
begin
ShowMessage('Необходмо ввести данные во все поля!!!');
//выход из процедуры
exit;
end;
distance:=StrToFloat(Edit1.Text); //дистанция
price:=StrToFloat(Edit2.Text); //цена
consumption:=StrToFloat(Edit3.Text); //потребление
cost:=(distance/100)*consumption*price; //расчет стоимости
mes:='Поездка на дачу';
//если флажок установлен, то стоимость нужно удвоить
if CheckBox1.Checked then
begin
//расчет стоимости
cost:=cost*2;
mes:=mes+#32+'и обратно';
end;
mes:=mes+#32+'обойдется в'+#13+
FloatToStrF(cost,ffFixed,15,2)+#32+'руб.';
Label4.Caption:=mes;
end;