关于精度简单而又奇怪的问题！！！大家帮忙！

rosbicn

如何实现s始终显示8.07000000000000028？？？？？？

面面爱面面

我的知识不够专业，因此只能说估计：

我估计是因为你的#的个数超出了实数的精度范围而致。其实，我估计，8.07显示为8.000000000000028这样，本身就是一个错误。请看一下我在上面的回复。正确的结果应该是显示为8.07或8.070000000000000这样

然后你再按我的代码，把var a : double;换成var a : Extended;试试，是不是可以加很多的#

rosbicn

谢谢面面爱面面 ，可是如果我希望
var
  a:double;
  s:string;
  vADOConnection:Variant;
begin
  a := 8.07;
  s := formatfloat('#.################',a);//s显示8.07000000000000028
  vADOConnection := CreateOleObject('ADODB.Connection');
  vADOConnection.ConnectionString := 'Driver={Firebird/InterBase(r) driver};pwd=masterkey;Uid=SYSDBA;database=C:\123.GDB';
  try
    vADOConnection.Open;
  Except
  end;
  a := 8.07;
  s := formatfloat('#.################',a);//s显示8.07
end;

显示8.07的地方也显示8.07000000000000028，意思就是即使错也错的一样！

我个人理解，vADOConnection.Open调用了MS的库文件，所以有效位数之后的数字直接删除了。有什么好方法来不删除呢？