Question

delphi float string转换问题

var
s:string;
a:real;
begin
s:='9.4';
a:=9.4;
if strtofloat(s) = a then //为什么条件不为true？？？
begin
......
end;
......

Answer 1

delphi 中的StrToFloat返回的类型不是Float 而是Extended 在小数进行对比的时候 有时候出错。。
因为single和double是8字节 而Extended是10字节。
同一个小数存在double和extended中的值一般是不一样的，除非这个小数可以被有限的2进制数表示，而不是被无限的2进制数表示。
更安全的做法是使用function TryStrToFloat(const S: string; out Value: Double): Boolean; overload;