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侦测条码枪方式

Delphi 申请内存空间 内存分配 缓冲区

Delphi 去掉文件只读属性

Delphi 将listview保存为txt

wmi cim_datafile的33个属性

Delphi 之 工具栏组件(ttoolbar)

Delphi listbox模糊查找文字

Delphi删除文件夹

Delphi中怎样得到系统当前“输入法”名称？

Delphi系统默认语言与系统支持的语言列表

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

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