请教！delphi里四舍五入的函数是什么啊？？急急急急急!(0分)

Y

yeser_macao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #1

delphi里四舍五入的函数是什么啊？？

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #2

现成的好像没有。
function round2(v:double):double;//四舍五入函数
var
s:string[30];
begin
s：=format('%0.2f',[v]);
result:=StrToFloat(s);
end

 

Y

yeser_macao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #3

哦！非常感谢！！