Недокругление

[Program(m)er]

Привет.
Смотрю через BreakPoint-ы на выполнение программы. Из-за того, что 0.1 в двоичной системе будет бесконечным числом, на конце переменной у меня появляется остаток. Решил его убрать с помощью функции RoundTo. Пример кода:
Код:

A:Extended;
...
...
//В ходе вычислений получается, что A:=8,900000572240459;
A:=RoundTo(A,-4); // По логике вещей (если память о пятом классе мне не изменяет) должно получиться A:=8,900;
Result:=Points;      // Через BreakPoint-ы, вижу, что A:=8,89999961853027, а в программе - 8,899996 (это уже floatToStrf(A,ffGeneral,8,3) постарался)

Подскажите - почему так получается (почему получается так, что функция не округляет до 0.001)?
P.S. Мне очень важно получить тот результат, который я описал. Варианты с другими видами округления не подходят (на случай, если они существуют).

[northener]

Подскажите - почему так получается (почему получается так, что функция не округляет до 0.001)?

Округлять то она округляет. Но вас же не удивляет что 0.1 нельзя представить в двоичной системе точно. Так чем 8.9 лучше?

[Program(m)er]

А как представить это число (хотя-бы на экране) как 8.9?
P.S. Если не сложно, можно пример кода?

[Аватар]

На отображение округлит FloatToStrF или если в компоненте, то DisplayFormat или что-то в этом роде.

FloatToStrF(8.89999961853027,ffFixed,8,3)

и даст 8.900. По поводу того, что в памяти см. #2

[Program(m)er]

А почему мой код не работал: floatToStrf(A,ffGeneral,8,3)

В чём разница между General и Fixed?

[Аватар]

А визуально не видно в чем разница? В хелпе почитай

[Program(m)er]

Спасибо за помощь и за совет.

[IliaIT]

можно проще совместить оба метода при выводе в текст.

str1:=floatToStr(RoundTo(A,-4))

P.S.
Я между прочим в свой код душу вкладываю!
Правда все равно говнокод получается...
Как думаете, это что-то значит?

[Smitt&Wesson]

Аватар, не "выделывайся" над человеком. Скажи, что тип данных указан не ворный. Я - сишник. С типовухой - проще. Компиль сам опреляет, где накосячил.

[Yurk@]

не тип, а правило округления. т.к. -4й элемент = 0 - по правилам округления и получается 8,900. но последние "ноли" обрезаются совершенно закономерно).
а чтобы отображение было с "нолями" в конце - нужно юзать, как указал Аватар, форматирование на предмет добавления недостающий "нолей".
Program(m)er, для примера, попробуй

RoundTo(A,-6)

и увидишь