Проблема с типами, хелп, пожалуйста

[rexy]

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

ParamValues['stoim']:=((StrToFloat(DBEdit1.Text)* StrToFloat(Edit4.Text)))-((StrToFloat(DBEdit1.Text)* StrToFloat(Edit4.Text))/100*(StrToFloat(ComboBox1.Text)));
      ParamValues['rashod']:=FloatToStr(StrToFloat(DBEdit1.Text)/100*StrToFloat(DBEdit2.Text)* StrToFloat(Edit2.Text)+StrToFloat(Edit3.Text)+StrToFloat(Edit1.Text));

По отдельности работает. Теперь нужно вычислить profit. И тут начинается проблема с типами. В стоимость, расходы и прибыль - все money, dbegitы - float, остальное - ввод с экрана.

[evg_m]

var
  f1, e4, ... : float; //double; extended; .... 

f1:=StrToFloat(DBEdit1.Text); // а лучше так f1:=DBEdit1.field.AsFloat;
e4:=StrToFloat(Edit4.Text);
c1:=StrToFloat(ComboBox1.Text);
f2:=StrToFloat(DBEdit2.Text);
e2:=StrToFloat(Edit2.Text);
e3:=StrToFloat(Edit3.Text);
e1:=StrToFloat(Edit1.Text);

ParamValues['stoim']:=((f1* e4))-((f1* e4)/100*(c1));
ParamValues['rashod']:=f1/100*f2* e2+e3+e1;

и какая проблема с типами теперь (и где!!!)

[rexy]

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

и какая проблема с типами теперь (и где!!!)

Спасибо за отклик! Проблема, когда отнимаю стоимость от расходов. delphi

[come-on]

тут говорят совсем не о типах, когда соответствующего вы не показали

[rexy]

Сообщение от come-on

тут говорят совсем не о типах, когда соответствующего вы не показали

извините, не понял

[come-on]

прочитайте текст ошибки и поймете

[rexy]

Вот блин, разобрался. Не читая думал, что там вся таже с типами ошибка. Спасибо! Всего доброго