一个简单的数据类型问题

Question

我定义两个SINGLE类型，类似如下
AA,BB:Single;
AA:=12/10000
通过计算得到BB
if AA=BB then
上面的条件总不会成立，因为Single后小数点有10位，我只要求小数点后四位相等就可以，我不想用if Round(AA*10000)=Round(BB*10000) then.

Answer 1

麻烦的方法:
送到一个字符串; 抽取后四位串;用pos判断小数点的后四位是否一样;

Answer 2

if (aa-bb) <  0.0001 then
应该就可以可

Answer 3

if formatfloat('0.0000',aa)=formatfloat('0.0000',bb) then

Answer 4

if Format('%.4f',[AA])=Format('%.4f',[BB]) then