Показать сообщение отдельно
  #7  
Старый 08.06.2010, 12:33
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

Код:
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.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 ))));
скобка функции floattostr не брала всю вашу формулу за скобкой оставалось :+((strtofloat(Edit2.Te xt)*2)+(strtofloat(Edit4.Text )))
Ответить с цитированием