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

Информатика. Программирование в Delphi
87
//в тип Integer
r:=StrToInt(Edit1.Text);
//запись в переменную k курса доллара, введенного
//в поле редактирования Edit2, с переводом из типа String
//в тип Real
k:=StrToFloat(Edit2.Text);
if k=0 then //если курс равен нулю
begin
//вывод сообщения
ShowMessage('Курс не может быть равен нулю!!!');
//выход из процедуры
Exit;
end;
//перевод рублей в доллары
d:=r/k;
//вывод в компонент Label3 количества долларов,
//например: 30 руб. это 1.25 дол.
Label3.Caption:=Edit1.Text+#32+
'руб. это'+#32+FloatToStrF(d,ffFixed,15,2)+#32+'дол.';
//изменение свойства text
Edit1.Text:='0';
//изменение свойства text
Edit2.Text:='0';
end
//если одно из полей редактирования оказалось пустым
else
begin
//вывод сообщения
ShowMessage('Введите количество рублей или курс доллара!!!');
//выход из процедуры
Exit;
end;
end;
7. Запустим проект: F9. Введем в поле редактирования Edit1 число 99, а
в поле редактирования Edit2 – число 24. Получим результат (рис. 5.10).
Рис. 5.10