Delphi Sources

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



Автор: Steve Schafer

Компьютер позволяет решать все те проблемы, которые до изобретения компьютера не существовали

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


function RoundFloat(R: Extended; Decimals: Integer): Extended;
var
  Factor: Extended;
begin
  Factor := Int(Exp(Decimals * Ln(10)));
  Result := Round(Factor * R) / Factor;
end;








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте