Советы по Delphi

         

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


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

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

-Steve Schafer [000829]



Содержание раздела