[valenina]

Здравствуйте!

Код:

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 дней.

Последняя строка не складывает данные а пишет их одна за другой...А надо чтоб цифры складывались...

В чем ошибка, подскажите пожалуйста?!!

[Kailon]

Вот что там написано нужно еще сидеть и разбтрать... Блин, ну почему нельзя красиво код вставить в сообщение?