Delphi

Admiral · Отправлено: **23:47, 11-10-2008** | #2

ShadowMas,
y:= x1*(1.013- 0.0267123*x2);
Edit5.Text:=y;

engwar · Конфигурация компьютера

procedure TForm1.Button1Click(Sender: TObject);

begin
Edit5.text:= floattostr((Strtofloat(Edit1.text)*(1.013- 0.0267123*strtofloat(edit3.text)));
end;

end.

Цитата ShadowMas:

x1:=Edit1.Text;
x2:=Edit3.Text; »

а тут ты пытаешься числовой переменной присвоить строковое значение

ShadowMas · Отправлено: **00:06, 12-10-2008** | #4

Ясно сенкс за ответ буду пробывать!!!

ShadowMas · Отправлено: **00:21, 12-10-2008** | #5

Спасибо огромное тут одна скобка я так понял лишняя

Edit5.text:= floattostr((Strtofloat(Edit1.text)*(1.013- 0.0267123*strtofloat(edit3.text)));

Всё получилось ЕЩЁ раз огромное спасибо всем кто ответил!