Delphi-Help

Главная Статьи Типы и Переменные Округление реальных типов

Округление реальных типов

Оцените материал
(1 Голосовать)


Округление реальных типов

Если вам необходимо округлить число, то наиболее общее решение выглядит следующим образом:

function RoundFloat(R: Extended; Decimals: Integer): Extended;
var
  Factor: Extended;
begin
  Factor := Int(Exp(Decimals * Ln(10)));
  Result := Round(Factor * R) / Factor;
end;
Прочитано 3536 раз

Авторизация



Счетчики