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利用scrollbox实现图像漫游

Delphi 网页数据抓取

floattostr问题 保留小数位

firemonkey listbox 的几个事件：拖动，点击，长按

Delphi 遍历注册表

Delphi 通过api强制tedit仅接受数字输入

Delphi dos批命令打开应用程序同时关闭dos窗口本身

Delphi 内存管理[3]

Delphi删除cookie和ie缓存

Delphi 关于access的日期类型字段比较的一点认识

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

转载请注明出处：木庄网络博客 » delphi 四舍五入保留一位或两位小数