// пересчитывает скорость из м/сек в км/час
procedure WindSpeed;
var
ms: integer;
// скорость м/с
kmh: real;
// скорость км/час
begin
// Если поле Editl пустое, то при выполнении
II функции StrToInt возникает ошибка.
II Проверим, ввел ли пользователь скорость в поле Editl
if Length(Forml.Editl.Text) = 0 then
begin
ShowMessage('Надо ввести скорость');
exit;
// завершить обработку события
end; ms := StrToInt(Forml.Editl.Text);
// ввести исходные данные
kmh := ms * 3.6;
// пересчитать // вывести результат
Forml.Label3.Caption :=
IntToStr(ms) + ' м/с - это ' + FloatToStr(kmh) + ' км/час'
end;
// щелчок на кнопке Пересчет
procedure TForml.ButtonlClick(Sender: TObject);
begin
WindSpeed;
// пересчитать скорость
end;
// нажатие клавиши в поле Editl
procedure TForml.EditlKeyPress(Sender: TObject; var Key: Char);
begin
// Key — символ нажатой клавиши
II #S — клавиша
11 #13 — клавиша case Key of
10'..'9',#8:; // цифры и клавиша
#13: WindSpeed; // пересчитать скорость
else Key := Chr(O); // остальные символы не отображать
end;
end;