2020-06-29
95
if not ((Key >= '0') and (Key <='9') or (Key = #8))
then Key:= Chr(0);
end;
7. Проверить работу приложения на различных значениях (целых и вещественных).
8. Модернизировать приложение для того, чтобы вычисление выполнялось не только при щелчке по кнопке Пересчет, но и при нажатии Enter после ввода последней цифры в поле Скорость. Для этого:
§ создать новую процедуру:
- перед End. ввести Procedure WindSpeed;
- переместить в нее весь код процедуры Button1Click;
§ для процедуры Button1Click ввести новый код:
procedure TForm1.Button1Click(Sender: TObject);
begin
WindSpeed; // пересчитать скорость
end;
§ внести изменения в процедуру Edit1KeyPress:
begin
// #13 - клавиша <Enter>
case Key of
'0'..'9',#8:; // цифры и <Backspace>
#13: WindSpeed; // пересчитать скорость
else Key:= Chr(0); // остальные символы не отображать
end;
9. Проверить работу приложения.
10. Сохранить проект. Результат показать преподавателю.
