Написать программу в Делфи, которая пересчитает массу из фунтов в килограммы

[Alina1807]

Написать программу, которая пересчитает массу из фунтов в килограммы (1 фунт = 409,5 грамм). Программа должна быть спроектирована таким образом, чтобы кнопка Пересчет была доступна только в том случае, если пользователь ввел исходные данные. Рекомендуемый вид формы:
Сник.PNG

[Serge_Bliznykov]

и в чём вопрос?
Не знаете, как в Делфи приложение с формой сделать?
Или на на форму поместить две лейблы, один edit и одну кнопку?!
или в чём то другом сложности?

[Alina1807]

сложности с кодом

[Serge_Bliznykov]

Сообщение от Alina1807

сложности с кодом

с каким именно кодом и какие сложности?

Что Вы уже сделали? Что Вы пытались сделать, но у Вас не получилось (из-за сложностей)?

[Alina1807]

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=StrToFloat(Edit1.Text);
y:=x*0.4095;
Label3.Caption:=
FloatToStrF (x,ffnumber,2,0)+'ф-это'
+FloatToStrF(y,ffGeneral,5,2) +'кг';
//ShowMessage (Надо ввести массу);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Button1.Enabled:=True;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
x:=StrToFloat (Edit1.Text);
//использование функции перевода из строкового типа в вещественное число
if key=#13 then
y:=x*0.4095;
Label3.Caption:=
FloatToStrF(x,ffnumber,2,0)+'ф-это'
+FloatToStrF(y,ffGeneral,5,2)+ 'кг';
//ShowMessage (Надо ввести массу);
end;
end.

ЭТО МОЙ КОД, ВЫДАЛ ОШИБКУ: [Error] Unit1.pas(18): Overloaded procedure 'FormKeyPress' must be marked with the 'overload' directive

[min@y™]

сложности с кодом

это шутка, да?

[Alina1807]

444444.jpg УСТАНОВИЛ КУРСОР ЗДЕСЬ

[VIK_aka_TOR]

Вас не смущает то что процедура FormKeyPress объявлена дважды?

p.s. И если смотрите нажатия на форме, стоит поставить KeyPreview (возможно у вас оно есть уже), для предварительной обработки всех нажатий по форме.

update

замечание - при EditKeyPress проверяйте наличие данных в самой строке, а не сразу давать волю конвертации. Можно удалить данные, а возможность конвертации будет доступной. + в свойствах Edit'а следует установить свойство NumbersOnly в True, поможет частично избежать некорректных данных.

[min@y™]

УСТАНОВИЛ КУРСОР ЗДЕСЬ

правильно.

[Stanislav]

Сообщение от min@y™

это шутка, да?

деление (умножение и т.д) очень сложный оператор, автор вот для начала ознакомьтесь с этой сложной темой

это жесть ребята