在线求教个问题关于浮点函数的 求高手作答

Question

我现在想写一个小程序 易语言会写 但是delphi却难倒我了 求高手指点这个程序是用了计算纸箱的价格的 用到的公式是：（长+宽+0.08）*（宽+高+0.04）*平方单价易语言我弄好了 源码是.版本 2编辑框5.内容 ＝ 到文本 ((到数值 (编辑框1.内容) ÷ 100 ＋ 到数值 (到数值 (编辑框2.内容) ÷ 100) ＋ 0.08) × (到数值 (到数值 (编辑框2.内容) ÷ 100) ＋ 到数值 (到数值 (编辑框3.内容) ÷ 100) ＋ 0.04))
编辑框6.内容 ＝ 到文本 (到数值 (编辑框5.内容) × 到数值 (编辑框4.内容))
 在DELphi求教这句代码应该怎么写（（长/100）+（宽/100）+0.08）*（（宽/100）+（高/100）+0.04）*平方单价 
长为编辑框1.内容 宽为编辑框2.内容 高为编辑框3.内容
除以100 是将厘米转换为米 请问 这样该怎么写啊

Answer 1

（长+宽+0.08）*（宽+高+0.04）*平方单价
用Delphi计算这个非常的简单。

Answer 2

函数 strtofloat 文本转化成浮点 

Answer 3

procedure TfrmMain.Button1Click(Sender: TObject);
var L,W,H:Integer;
    t,m:Single;
begin
    L:=20;W:=15;H:=20;
    m:=0.5;
    t:=(L+W+0.08)*(W+H+0.04)*m;
    Edit1.Text := Format('%.2f',[t]);
end;