Round

Комментарии

• Smoke

  August 2014 отредактировано 21:15

  Немного ошибся, при округлении 10ти значного числа то все нормально, а 11ти-непонятное число
• gpi

  August 2014 отредактировано 21:15

  Round возвращает Integer, поэтому для Ваших целей нужно писать пользовательскую функцию
• Nightmareterrible

  August 2014 отредактировано 21:15

  Можете использовать эту функцию для округления
  

  // ---------Арифметическое (математическое) округление--------------
  function Round1(x: Extended): Int64; // :Extended
  begin
      if (x > 0) and (Frac(x) >= 0.5) then
        Result := Trunc(x) + 1
      else if (x < 0) and (Frac(x) <= -0.5) then
        Result := Trunc(x) - 1
      else
        Result := Trunc(x);
  end;