// щелчок на кнопке Пересчет
procedure TForml.ButtonlClick(Sender: TObject);
var
funt: real; // масса в фунтах kg: real; // масса в килограммах begin
if Length(Editl.Text) = 0 then begin
// в поле Editl нет исходной информации
ShowMessage('Надо ввести массу.1); exit; end;
funt := StrToFloat(Editl.Text); kg := funt * 0.4095;
Label2.Caption := FloatToStrF(funt, ffGeneral,5,2) +
' ф- это ' + FloatToStrF(kg,ffGeneral,5,2) + ' кг1;
end;
// нажатие клавиши в поле Edit
procedure TForml.EditIKeyPress(Sender: TObject; var Key: Char)
begin
case Key of
' 0' . . ' 9' , #8 :; // цифры и клавиша
I Обработку десятичного разделителя
сделаем "интеллектуальной".
Заменим точку и запятую на символ DedmalSeparator — символ,
который используется при записи дробных чисел. Этот символ задается в настройках Windows.
begin
Key := DecimalSeparator;
// проверим, введен ли уже в поле
// Edit десятичный разделитель
if pos(DecimalSeparator,Editl.Text) о О
then Key := Char (Ob-end ; else Key := Char(O); /У остальные символы запрещены
end;
end;