19. Запрограммируйте кнопку “Выход”. Воспользуйтесь процедурой закрытия окна программы Close:
procedureTForml.Button2Click(Sender: TObject);
Begin
Close {Закрываем окно программы}
end;
20. Запрограммируйте кнопку “Вычислить”. Данное в поле редактирования - это значение свойства Text типа string. Для преобразования этого данного в числовой действительный тип (real) воспользуйтесь процедурой Val, а для обратного преобразования - процедурой Str. Опишите соответствующие основные (kurs, suma) и дополнительные (cod, ed) переменные в разделе var.
procedureTform1.ButtonlClick(Sender: TObject);
varkurs1, kurs2, summa : real;
cod : integer;
ed : string[9];
Begin
{Получаем значения курса покупки}
Val (Editl.Text, kursl, cod);
{Получаем значения курса продажи}
Val (Edit2.Text, kurs2, cod);
{Получаем числовое значение суммы в USD}
Val (Edit3.Text, summa, cod);
if RadioButton2.Checked = True then
summa:= summa * kurs2
Else
summa := summa * kurs1;
Str(summa:9:2, ed);
Edit4.Text := ed;
{Полученное число суммы в рублях преобразовываем
в текстовый формат и результат присваиваем свойству
Text поля вывода Edit4}
end;
Сохраните работу (Save All).
Выполните программу и поупражняйтесь с разными денежными суммами и операциями купли - продажи. Закройте окно программы “Обмен валюты”.
