简单问题，各位给看看，谢谢

[sunnauq]

var
r:real;
begin
r:=68.667;
if r<>68.667 then
showmessage('aaaaaa')
end;
上面代码中r和68.667为什么不相等呢。我也试过用format，
r=strtofloat(format('%1.3f',[r]));
可是还是r和68.667还是不等，为什么呢，怎么解决。谢谢各位

[Goldteerfei]

我也不清楚为什么不行。但是这样的话可以行。
var
r:real;
begin
r:=68.667;
if FormatFloat('0.000',r)='68.667' then
showmessage('aaaaaa')
end;

执行结果是相等的。
确实是莫名其妙的问题，用这个方法吧。

[wzds2000]

if FloatToStr(r)<>'68.667' then
showmessage('aaaaaa');

[whqcfp]

实数和实数不能直接比较，可以用中间变量法：

var
r, d: Real;

begin
r := 68.667;
d := 68.667;

if r = d then
ShowMessage('aaaa');
end;

就可以了！

[cash2000]

var
r:real;
begin
r:=68.667;
if abs（r-68.667）<0.000000001 then
showmessage('aaaaaa')
end;