Цитата:
|
Сообщение от Mad programmer
c:=b+strtoint(DBEdit1.Text);
с-integer;
в DBEdit1.Text храниться Float.
P.S. Вместо Edit используй SpinEdit и не надо будет strtoint делать....
|
SpinEdit-это компонент?
Даже если я переделываю процедуру:
Код:
procedure TForm11.Button1Click(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(Form12.Edit22.Text)+strtoint(Form12.Edit24.Text);
b:=a*Strtofloat(Edit2.Text)+Strtofloat(Edit4.Text);
DBEdit1.Text:=floattostr((1.1*(DataModule3.Kod_DTable1.FieldByName('D_Ёмкости').AsFloat*3.14*DataModule3.Kod_BTable1.FieldByName('B_Стенки').AsFloat*DataModule3.Kod_HTable1.FieldByName('H_Ёмкости').AsFloat+2*(3.14*DataModule3.Kod_DTable1.FieldByName('D_Ёмкости').AsFloat*DataModule3.Kod_DTable1.FieldByName('D_Ёмкости').AsFloat)/4*DataModule3.Kod_BTable1.FieldByName('B_Стенки').AsFloat)*1.6*DataModule3.Kod_STable1.FieldByName('S_Стеклопластика').AsFloat));//+floattostr((strtofloat(Edit2.Text)*2)+strtofloat(Edit4.Text));
c:=b+Strtofloat(DBEdit1.Text);
DBEdit3.Text:=floattostr (c);
Admin: Последнее предупреждение, при рецедиве БАН.
она все равно выдает ошибку
