![]() |
Не могу понять что не так?
Люди помогите пожалуйста, начал разбираться с Delphi и застопорился с вроди бы простой и понятной програмкой :(
Нужно чтобы в Текстовой строке "Label6" или в поле ввода "Edit5" при нажатии кнопки "Button1" считалась вот такая простая формула: y:= x1*(1.013- 0.0267123*x2) вот строки кода: procedure TForm1.Button1Click(Sender: TObject); var x1:integer; x2:integer; y:Variant; begin x1:=Edit1.Text; x2:=Edit3.Text; y:=Edit5.Text; y:= x1*(1.013- 0.0267123*x2); end; end. Подскажите где ошибка? |
ShadowMas,
y:= x1*(1.013- 0.0267123*x2); Edit5.Text:=y; |
procedure TForm1.Button1Click(Sender: TObject);
begin Edit5.text:= floattostr((Strtofloat(Edit1.text)*(1.013- 0.0267123*strtofloat(edit3.text))); end; end. Цитата:
|
Ясно сенкс за ответ буду пробывать!!!
|
Спасибо огромное тут одна скобка я так понял лишняя
Edit5.text:= floattostr((Strtofloat(Edit1.text)*(1.013- 0.0267123*strtofloat(edit3.text))); Всё получилось ЕЩЁ раз огромное спасибо всем кто ответил! |
Время: 00:12. |
Время: 00:12.
© OSzone.net 2001-