[Ромео]

Ума не приложу в чём дело...
Есть функция (с форума):

Код:

function RoundEx(X: Double; Precision: Integer ): Double;
{
Precision :
1 - до целых
10 - до десятых
100 - до сотых
...
}
var
  ScaledFractPart, Temp: Double;
begin
  ScaledFractPart := Frac(X) * Precision;
  Temp := Frac(ScaledFractPart);
  ScaledFractPart := Int(ScaledFractPart);
  if Temp >= 0.5 then
    ScaledFractPart := ScaledFractPart + 1;
  if Temp <= -0.5 then
    ScaledFractPart := ScaledFractPart - 1;
  RoundEx := Int(X) + ScaledFractPart / Precision;

Затем...
Такой вот строчкой всё зашибись как работает:

Код:

RoundEx(0.123456789, 100000);

А вот такой вот комбинацией в цикле в своей проге пишу:

Код:

        SuprD[i]:=RoundEx((0.1*Scpp[i]/D),100000);
        ShowMessage(FloatToStr(SuprD[i]));

...и не пашет.. Т.е . не округляет.. Я наверное спёкся просто, но объясните мне, где ошибка?

[s0Creator]

а может попробуешь это:
Delphi7 help:
Delphi syntax:

PHP код:

type TRoundToRange = -37..37;
function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;

RoundTo(1234567, 3)    = 1234000
RoundTo(1.234, -2)    = 1.23
RoundTo(1.235, -2)    = 1.24
RoundTo(1.245, -2)    = 1.24 


или

PHP код:

typedef Word TSimpleRoundToRange;
extern PACKAGE double __fastcall SimpleRoundTo(const double AValue, const TSimpleRoundToRange ADigit = -2);

SimpleRoundTo(1234567, 3)    = 1234000
SimpleRoundTo(1.234, -2)    = 1.23
SimpleRoundTo(1.235, -2)    = 1.24
SimpleRoundTo(-1.235, -2)    = -1.23 


[Ромео]

Код:

        SuprD[i]:=(0.123456789);
        SuprD[i]:=RoundTo((SuprD[i]),-5);
        ShowMessage(FloatToStr(SuprD[i]))

Итогом выдаёт сообщения: 0,123460002243519

Код:

        SuprD[i]:=(0.123456789);
        ShowMessage(FloatToStr(RoundTo((SuprD[i]),-5)));

Итогом выдаёт сообщения: 0,12346

-----
...мда.. и чего делать? ((

[s0Creator]

если SuprD : array of real;
то возможна ошибка округления при переводе из
function RoundTo(...): Double;

[s0Creator]

попробуй для хранения использовать Double или Currency(наиболее точное хранение чисел если диапазон устраивает)

кстати если округляешь для удобства просмотра то можно использовать функцию Format для преобразования в строку
Format('%8.2f', [123.456]);

[Ромео]

Попробовал.. ничего не изменилось.
В принципе - для удобства просмотра.. но потом надо будет реализовать запись в файл.. и туда надо будет писать тоже уже округлённые значения.
Так что.. неплохо было бы сами числа сделать таковыми.. ((
Ума не приложу в чём может быть дело. (