遇到奇怪的问题

Question

我的语句是这样的tmp_real := 0.025;if (tmp_real = 0.025) then
begin
   ...
end;问题是，进不了这个begin...end中。也不知道是怎么回事。
奇怪！

Answer 1

tmp_real这个不知道是什么类型的.
只要是Extended类型的就可以了:
tmp_real: Extended;

Answer 2

如果tmp_real 是real型,那是因为浮点误差引起的,已讨论过多次了,正确的写法为tmp_real := 0.025;
if abs(tmp_real - 0.025)<充许误差(如0.00001) then
begin
...
end;