delphi 四舍五入保留一位或两位小数


本文整理自网络,侵删。

 
delphi 四舍五入保留一位或两位小数写法,后面参数为保留小数点位数

function RoundFloat(f: double; i: integer): double;
var
  s: string;
  ef: Extended;
begin
  if f = 0 then begin
    Result := 0;
    Exit;
  end;
  s := '#.' + StringOfChar('0', i);
  if s = '#.' then s := '#';
  ef := StrToFloat(FloatToStr(f)); //防止浮点运算的误差
  result := StrToFloat(FormatFloat(s, ef));
end;

//调用
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=FloatToStr(RoundFloat(StrToFloat(Edit1.Text),2));
end;

相关阅读 >>

Delphi 获取listview1鼠标所在位置的行名称

Delphi中分隔字符串函数的使用

Delphi 检查注册表键、键值是否存在

Delphi 如何知道鼠标点击的statusbar的位置

Delphi 限制tedit控件只能输入数字,小数点和负号

Delphi 请求时间,为当前时间,数值为1970-01-01以来的毫秒数

Delphi: ttreeview 中禁止双击事件展开或关闭节点

Delphi application.title在win7下失效了?

Delphi adoquery1数据表参数调用

Delphi 使用windows api(wincrypt)计算文件md5哈希,支持大文件

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...