Показать сообщение отдельно
  #12  
Старый 08.01.2009, 02:37
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,029
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Переведи с строку.
Скопируй с помощью copy строку длинной [позиция точки]+n, где n -нужное кол-во знаков.
Отрежь уже выведенную часть и посчитай доинну остатка.

Механизм с погрешностью, т.к. точность числа определяется типом переменной, а сама дробь может быть бесконечной.
Ответить с цитированием