Delphi 四舍五入含小数点函数

本文整理自网络，侵删。

 
要先 use System.Math; 然後?得?入的是extended，如果是double的?，小?滴?稻??有?`差
// MyRound 四?挝迦?
// input
// amt 金?~
// iprecision 小?滴??(?A?O0)
// ouput
// string 文字
Function MyRound(amt:extended ;iPrecision:Integer=0):String;
var
S:String;
i1:Integer;
Begin
S:= ”;
i1:= iPrecision * -1;
S:= FloatToStr(SimpleRoundTo(Amt,i1));
result := s;
End;
 

相关阅读 >>

Delphi xe的firemonkey获取当前文件所在路径的方法

Delphi xe7 ios 取得系统字型名称

Delphi Delphi tparallel cleanup needed用法

建议大家使用fastmm

Delphi 实现定时功能

Delphi 根据文件路径获取文件名

Delphi isdirectory 判断是否是目录

Delphi 简单播放mp3

Delphi 时钟

Delphi运行时的问题，cannot focus a disabled or invisible window！

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

转载请注明出处：木庄网络博客 » Delphi 四舍五入含小数点函数