real/float/decimal...数据类型的问题搞不清

Question

SQL数据库里'build_area_t'、'earth_area_t'两个字段都是定义的float型。
delphi里需要将两者相除得到一个系数，如0.95=1900/2000，但总是得不到var
per:real;
……
per:=buildTable.fieldbyname('build_area_t').asfloat/buildTable.fieldbyname('earth_area_t').asfloat;我debug时等号右边明明是1900/2000，整个表达式结果是0.95，可是左边per却始终是0。
定义per:float又说不认识float，什么single,double,都不行！
请求帮助！

Answer 1

float 就是 Double 型。
要么试试将两个值分别放到一个double 型的变量中试试？

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
per:double;
begin
per:=ADOQuery1.fieldbyname('绝缘电阻加压前1').asfloat/ADOQuery1.fieldbyname('绝缘电阻加压后1').asfloat;
Edit1.Text:=floattostr(per);
end;测试结果是0。95符合你的要求吧！

Answer 3

float精度低,decimal精度较高,real是为了兼容以前版本而保留的数据类型