Double类型比较大小的问题

[alex0127]

(a,b是两个edit控件的值)
var a,b:double;
if a>b then
showmessage();
就这样的一个语句，我们几台机器上测得都是正常的，但是有个测试的机器上无论a>b还是a<b都会报错。找了半天不知道原因，我想问问这是什么问题，会不会和机器上的系统有关系？之前我让她把系统的数字类型修改了一下，好了的，结果，这几天又出问题了，这次数字类型和上次一样。郁闷啊。。

[yhf365]

一头雾水...
贴源码出来看看？

[Corn1]

报啥错？
double类型最好不要直接比较
用：
uses Math;
if RoundTo(a-b, 2)>0.00 then //保留的小数位数自己设

[alex0127]

报错就是执行showMessage();恩，我换个写法试试， 不错，那个问题太奇怪了，其他机器上这个语句运行都OK，就是那一台机器上有问题。