Если вам необходимо округлить число, то наиболее общее решение выглядит
следующим образом:
|
|
function RoundFloat(R: Extended; Decimals: Integer):
Extended;
var
Factor: Extended;
begin
Factor := Int(Exp(Decimals * Ln(10)));
Result := Round(Factor * R) / Factor;
end; |
-Steve Schafer |