你遇到的这个问题，本质是二进制浮点数的精度特性导致的——0.1这个十进制小数无法被二进制浮点数精确表示，只能存储近似值。在默认的Delphi编译规则下，浮点数字面量0.1会被当作Extended类型处理（这是Delphi默认的最高精度浮点类型）。当你把这个Extended类型的0.1赋值给Single/Real/Double变量时，变量会存储该精度下的近似值；而比较时，变量会被隐式转换回Extended类型，这时候转换后的数值和原始的Extended字面量0.1就会存在微小差异，导致匹配失败。只有Extended变量因为和字面量类型一致，赋值和比较都是同一个近似值，所以能匹配成功。

接下来回答你的核心问题：可以通过编译器指令实现Real类型变量无需修改代码就能匹配0.1，具体方案如下：

使用{$REALCOMPATIBILITY ON}编译器指令 #

这个指令是专门用来调整浮点数字面量的处理逻辑的，启用后会改变默认行为：

• 浮点数字面量会被转换为当前作用域的默认Real类型（在绝大多数Delphi版本中，Real默认映射为Double），而不是固定的Extended类型。
• 这样一来，当你给Real变量赋值0.1时，字面量本身就是Double类型的近似值，变量存储的也是这个值；比较时两边都是Double类型的同一个近似值，自然就能匹配成功。

使用方式 #

你有两种启用方式：

1. 单元级启用：在包含Test过程的单元文件开头添加指令：

   {$REALCOMPATIBILITY ON}
   

2. 项目级启用：打开Delphi的项目选项，找到「Compiler」->「Delphi Compiler」->「Compatibility」，勾选「Real Compatibility」选项（不同版本的界面可能略有差异，本质就是启用{$REALCOMPATIBILITY ON}）。

测试验证 #

启用指令后，你的测试代码中r := 0.1; if (r = 0.1)这一行会成功触发ShowMessage('r matched')，完全不需要修改原有代码逻辑。

补充说明 #

• 这个指令仅会影响浮点数字面量的类型推导，不会改变变量本身的类型定义，也不会影响其他类型的浮点数运算逻辑。
• 对于Single和Double变量，如果想要它们也能和字面量0.1匹配，你需要显式地将字面量转换为对应类型（比如if (s = Single(0.1))），或者针对性地调整局部的编译指令，但你的需求是Real类型，{$REALCOMPATIBILITY ON}已经完全满足。
• 注意：这个指令在Delphi 2009及以后的版本中支持，如果你使用的是更早的版本，可能需要通过显式类型转换来实现相同效果。

内容的提问来源于stack exchange，提问作者user1627960