四舍五入
新手哇,因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;