急用！求 对实数进行“四舍五入”的函数！

Question

对实数进行“四舍五入”的函数！，要求其中一个参数是四舍五入的位数！

Answer 1

function round(x: Extended): Int64;

Answer 2

function my_FormatFloat(r: Real; u: Integer): Real;//u第几位
var
      vStr : String;
      I : Integer;
begin
      if u <= 0 then Result := r
      else
      begin
            vStr := '0';
            for I := 1 to u - 1 do
                  vStr := vStr + '0';
            vStr := '0.' + vStr;
            Result := StrToFloat(FormatFloat(vStr, r));
      end;
end;

Answer 3

round四舍五入
TRUNC去尾取整

Answer 4

用FormatFloat(‘##0.00’,数值)