在Delphi中四舍五入的函数是什么

Question

在Delphi中四舍五入的函数是什么。
 Round() 返回的是整型。而我要的是浮点型

Answer 1

round()可以返回浮点型，你看看帮助

Answer 2

Trunc
和Round
 你试试！

Answer 3

浮点型本来就不是一个精确的类型，
我想你要的是转化为保留N位上数的字符串吧，
如果是这样，请用：format('%.nf',[dValue]);

Answer 4

我写的，参考一下
function  rRound(r:TNumber;Dec:integer):TNumber;
var
  i:integer;
  temp:TNumber;
begin
  temp:=1;
  if Dec>=0 then
    for i:=1 to Dec do temp:=temp*10
  else
    for i:=-1 downto Dec do temp:=temp/10;
  result:=round(r*temp)/temp;
end; 

Answer 5

Trunc
不是四舍五入，而是把小数点后面的数字截去。

Answer 6

delphi 没有自带四舍五入函数！看下面。function FourOutFiveIn(xValue:Double;xpos:integer):Double;
begin
  if xValue < 0 then
    Result := DsTrunc( xValue * exp( xPos * ln(10)) - 0.5)  / exp( xPos * ln(10))
  else
    Result := DsTrunc( xValue * exp( xPos * ln(10)) + 0.5)  / exp( xPos * ln(10));
  if Abs( Result ) < SeedValue then Result := 0;
end;

Answer 7

liang_z(千山一刀之忍者神龟) 
  还是你小子聪明，拿分吧

Answer 8

To WUtonyDsTrunc是你自己写的函数吧？
你不把它也写出来，这个函数有什么用？

Answer 9

round只能返回整数，还是用format吧，可以达到四舍五入的要求

Answer 10

round(123.456,-2):=123.46
format('%.2f',[123.456]);

Answer 11

Format('%*.*f', [8, 2, 123.456]) is the same as Format('%8.2f', [123.456]).