delphi 小数点四舍五入问题

本文整理自网络，侵删。

 function ARoundN(v: Double; n: Integer): Double;
var
  I:Integer;
begin
  result:=v;
  for I:=0 to n-1 do
    begin
      result:=result*10;
    end;
  result:=Round(result);
  for I:=0 to n-1 do
    begin
      result:=result/10;
    end;
end;
 

相关阅读 >>

Delphi renamefile 文件改名

Delphi 下载网页

Delphi在桌面上显示文字代码

Delphi apihook createprocess

Delphi获取操作系统安装磁盘盘符

Delphi 根据进程名称获取进程号

Delphi 动态修改exe文件的图标

Delphi如何获取qq2010聊天窗口句柄

Delphi 提高unigui开发效率的两个方法

线程与进程的区别

更多相关阅读请进入《Delphi》频道 >>