一个四舍五入的小函数 (2001年4月6日).txt

自己对DELPHI学习的一点体会

一个四舍五入的小函数 (2001年4月6日) 

网友更新  分类:算法   作者:ben  推荐:benlin   阅读次数:264  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
function SysRound(AValue : Real;ALength : Integer):real;
var i:Integer;
Value:real;
begin
VALUE:=AValue;
for i:=1 to ALength do
Value := Value * 10;
Value:= Round(Value);
for i:=1 to ALength do
Value := Value / 10;
result:=Value;
end;