Здравствуйте!
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
DBEdit5.Text:=floattostr(1.1*(DataModule3.Kod_DTable1.FieldByName('D_Ёмкости').AsFloat*3.14*DataModule3.Kod_BTable1.FieldByName('B_Стенки').AsFloat*DataModule3.Kod_HTable1.FieldByName('H_Ёмкости').AsFloat+1*(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);
DBEdit1.Text:=floattostr((1.1*(3.14*DataModule3.DH_KrTable1.FieldByName('D_kr').AsFloat*DataModule3.DH_KrTable1.FieldByName('D_kr').AsFloat)/4*DataModule3.DH_KrTable1.FieldByName('H_kr').AsFloat)*1.6*DataModule3.Kod_STable1.FieldByName('S_Стеклопластика').AsFloat);
DBEdit2.Text:=DBEdit5.Text+DBEdit1.Text;
end;
Admin: Бан, за теги - предупреждал же неоднократно, пока на 5 дней.
Последняя строка не складывает данные а пишет их одна за другой...А надо чтоб цифры складывались...
В чем ошибка, подскажите пожалуйста?!!