|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
ПОчему не складываются данные?
Здравствуйте!
Код:
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, 11.06.2010 в 09:46. |
#2
|
||||
|
||||
Вот что там написано нужно еще сидеть и разбтрать... Блин, ну почему нельзя красиво код вставить в сообщение?
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. |