Delphi的四舍五入函数

function x_round(x: double): double;
var
  x10: double;
  xx: integer;
begin
  x10 := abs(x) * 100 + 0.5;
  xx := trunc(x10);
  result := xx / 100;
  if x<0 then
    result:=-result;
end;