delphi代码实现计算 关于delphi数据计算

delphi代码实现计算

编译调试通过：edit1代表a,edit2代表b,edit3代表c,edit4代表x
procedure TForm1.Button1Click(Sender: TObject)
var
a,b,x:double
begin
a:=strtofloat(edit1.text)
b:=strtofloat(edit2.text)

if (edit3.text=)or(FormatFloat(0.000,StrToFloat(edit3.Text))=0.000 )

then
showmessage(c不能为0或空，请重新输入)
else
begin
x:=(a b)/power(strtofloat(edit3.text),2)
edit4.Text:=formatfloat(0.000,x)
end
end

end.

关于delphi数据计算

Delphi中的浮点类型有以下几种（我测试的是Delphi XE3版）：
Real48、Single、Double、Real、Extended、Comp、Currency。
你定义的Float类型，可能是自己对以上的浮点类型加了一层外套。
Pascal对类型的检查比较严格，你仔细查一下帮助文档，选择适合自己的数据类型。
建议你把sum改为Double或者Extended类型，试一下。