新手哇，因DELPHI 自带的四舍五入函数和常用的不一样，发个自编的四舍五入函数，需要在USES中加入math;
调用时第二个参数为要取的小数位数，如roundclass(9.7865,2),得到的是9.79,如roundclass(987654,-2)得到的是987700

  function    roundclass(ss:Real;dd:integer ):Real;   // 需要USES Math,

  begin
    ss:=ss*power(10,dd)+0.5;
    roundclass:=Trunc(ss)/power(10,dd);
  end;

很好啊,能用就好,你这个算很简单的了,我自己写了一个,要比你这个复杂.