关于Round函数的问题!
muleo 2006-10-18 10:02:13 自己写了一个四舍六入,逢五奇进偶舍的函数。
function f(f:Double;k:Integer):Double;
var
D:Double;
i,m:Integer;
begin
m:=1;
for i:=0 to k-1 do
begin
m:=m*10;
end;
D:=Round(f*m)/m;
Result:=D;
end;
f(0.12345,4)与Round(0.12345*10000)/10000)的结果确不同为什么出现这样的情况?错在那里?