计算的精度问题！

Question

怎样将计算的结果精确到小数点后两位，用format函数是四舍五入的所以小数点后的第二位不准确，我想要截到小数点后两位，不要四舍五入。请问用什么办法可以解决？谢了！

Answer 1

var
  s:string;
  f:real;
//...  
  s:=floattostr(f);
  s := copy(s,1, pos('.',s)+2);
  f := strtofloat(s);
//...

Answer 2

function formatReal(f:real):real;
var
  s:string;
  f:real;
  i:integer;
begin  
  s:=floattostr(f);
  i:=(pos('.',s);
  if i=0 then
    s:=s+'.00'
  else
    s := copy(s,1, pos('.',s)+2);
  f := strtofloat(s);
  result:= f;
end;