运算公式,请高手帮忙,急!

Question

日总值=工价*日生产量-罚款
  Edit3.text :=DBlookupcombobox1.keyvalue * Edit1.text - Edit1.text
 不对,刚学delphi,无法做,请高手帮忙,急!

Answer 1

Edit3.text :=Float(DBlookupcombobox1.keyvalue) * StrTofloat(Edit1.text) - StrTofloat(Edit1.text)

Answer 2

var f: float;
begin
 f := DBlookupcombobox1.keyvalue * StrToFloat(Edit1.text) - StrToFloat(Edit1.text);
Edit3.text := FloatToStr(f);StrToFloat 也可用 StrToInt

Answer 3

Edit3.text :=floattostr(DBlookupcombobox1.keyvalue * strtofloat(Edit1.text) - strtofloat(Edit1.text))