Delphi7. Запись в файл(проблема)

[Базиля]

Delphi_ProGer

[Artsiom]

Значит в Делфи нет функции типа округлитьвверх без всяких разделений на чётные и нечётные числа? Или я просто не понял? Round округляет не так как надо...

[Базиля]

Artsiom
Просто округление использует банковские правила.

Round округляет не так как надо...

Пример?
Если тот что попадает под эти самые правила, то тогда проще будет написать свою функцию.

[Artsiom]

Сделать так:
получаем число, проверяем, если Frac числа отличен от 0, то берём Int и прибавляем 1. Осталось только реализовать..
На счёт примера, надо что бы всегда, при любых дробных округляло вверх.

[Базиля]

Artsiom
Так это тогда не общепринятое округление какое-то получается.
Пишите свою функцию.

Function MyRound(n:real):integer;
begin
  if frac(n)>0 then
    myround:=trunc(n)+1
  else
    myround:=n;
end;

[Serge_Bliznykov]

так не?

function MyRound(X: Extended):Int64;
begin
  result :=  trunc(X + 0.9999999);
end;

[Базиля]

Красивей вариант
Со своим примером, я что-то даже и не заметил что сам прописал, тип возвращаемого результата у функции целочисленного типа конечно же

[Orakul89]

Сообщение от Serge_Bliznykov

так не?

function MyRound(X: Extended):Int64;
begin
  result :=  trunc(X + 0.9999999);
end;

А так?

  result :=  round(X + 0.5);

[Serge_Bliznykov]

Сообщение от Базиля

Красивей вариант

на самом деле, на практике вариант с if frac(X)>0 then может автору топика гораздо больше подойти - ибо в моём случае количество девяток после десятичной точки должно быть заведомо не меньше, чем число десятичных знаков в округляемом числе.

и ещё одно важное замечание - надо проверять, что автору топика нужно, если число отрицательное:
минус 9 разделить на 4 - сколько должно получиться в результате округления?!


Добавлено

Orakul89, так не пойдёт. Ибо автору топика нужно, чтобы целые числа не округлялись вверх.
попробуйте на примере Round(15/3 + 0.5) - получите 6, хотя, думаю, что автор ожидает получить 5

[Artsiom]

Сообщение от Serge_Bliznykov

function MyRound(X: Extended):Int64;
begin
  result :=  trunc(X + 0.9999999);
end;

Не, не. Это как раз то, что надо. С отрицательными числами у меня нет работы и точность хорошая.