procedure TForm11.Button1Click(Sender: TObject);
begin
DBEdit1.Text:=floattostr((1.1*(DataModule3.Kod_DTa ble1.FieldByName('D_Ёмкости').AsFloat*3.14*DataMod ule3.Kod_BTable1.FieldByName('B_Стенки').AsFloat*D ataModule3.Kod_HTable1.FieldByName('H_Ёмкости').As Float+2*(3.14*DataModule3.Kod_DTable1.FieldByName( 'D_Ёмкости').AsFloat*DataModule3.Kod_DTable1.Field ByName('D_Ёмкости').AsFloat)/4*DataModule3.Kod_BTable1.FieldByName('B_Стенки'). AsFloat)*1.6*DataModule3.Kod_STable1.FieldByName(' S_Стеклопластика').AsFloat))+((strtofloat(Edit2.Te xt)*2)+(strtofloat(Edit4.Text )));
end;
Это вся процедура
|