一个看起来很简单的问题:字符串和浮点数的转换

Question

使用floattostr转换浮点数到字符串时,首先转换为extended类型,生成的字符串会有多余的小数,这个问题如何解决??
例如:
f1:float;
s1:string;
f1:=1456.01245;
s1:=floattostr(f1);
这时s1='1456.01245777188',如何让s1='1456.01245',不要说用format,要能够自动判断小数点后的位数.

Answer 1

在delphi6中有float类型吗？如果我这样定义：
var
f1:float;
s1:string;           编译时会出错。
但如果我定义成：
var
f1:real;
s1:string;
f1:=1456.01245;
s1:=floattostr(f1);
编译是没出错，也没有出现像你所说的问题