[valenina]

Пишу программу БД в Делфи надо в ней кое-что подсчитать... формула такова
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))+(floattostr(Edit2.Tex t*2))+(floattostr(Edit4.Text)};

Формула работала пока не вставила последние слогаемые +(floattostr(Edit2.Text*2))+(floattostr(Edit4.Text )};
При компл. выдается ошибка
1.[Error] Unit11.pas(71): Incompatible types: 'String' and 'Integer'
[2.Error] Unit11.pas(71): There is no overloaded version of 'FloatToStr' that can be called with these arguments
3.[Fatal Error] Project1.dpr(15): Could not compile used unit 'Unit11.pas'

Как исправить эту ошибку?

[Black Raider]

Код:

+(floattostr(Edit2.Text*2))+(floattostr(Edit4.Text );

у Editа свойство Text -string
т.е. в вашем случае:
+(strtofloat(Edit2.Text)*2)+(strtofloat(Edit4.Text ))

[friz]

ну во-первых за такой код стрелять надо
а в вообще ошибка в том что к вещественному типу ты добавляешь строку.
последние слагаемые должны быть такими:

Код:

(strtofloat(Edit2.Text*2))+(strtofloat(Edit4.Text)

и не забудь их взять под общую скобку!

[valenina]

AsFloat))+((strtofloat(Edit2.Text)*2)+(strtofloat( Edit4.Text )));
Вот я так и сделала как вы говорите... в итоге ошибка:
[Error] Unit11.pas(71): Incompatible types: 'String' and 'Extended' и программа не компел..

[valenina]

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;

Это вся процедура

[Konrad]

Сообщение от friz

Код:

(strtofloat(Edit2.Text*2))+(strtofloat(Edit4.Text)

string*integer?)

м.б. так

Код:

floattostr((strtofloat(Edit2.Text)*2)+strtofloat(Edit4.Text))

[Black Raider]

Код:

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 )))

[valenina]

все сработало.. спасибо..

[friz]

я же русским языком написал:

и не забудь их взять под общую скобку!

вот из-за такой невнимательности и рушиться мир на земле