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

来自「delphi 编程技巧」· 文本 代码 · 共 21 行

一个四舍五入的小函数 (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;