VPF::округлить десятичную дробь - Форум программистов

prednizolon

Дата 14.10.2006, 20:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.9.2006

Репутация: нет
Всего: нет

есть дробное число
в Edit у меня записана точность в виде 0,01 или 0,0001
мне нужно данное дробное число округлить до заданной точности

З.Ы.
точность дана только в этом виде и ни в каком другом

Alexeis

Дата 14.10.2006, 22:37 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

функция function

Код


  RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;

из библиотки math

значение ADigit, можно вычислить из

Цитата(prednizolon @ 14.10.2006, 20:58

)

в Edit у меня записана точность в виде 0,01 или 0,0001

при помощи домножения на 10;

Код


var
  c : extended;
  Digits : integer;
begin
 c := 0.0001;
 Digits := 0;
while (c * 10) < 1
do
 Begin
   c := c  * 10;
   inc(Digits);
 end;

RoundTo(Value, Digits);

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »