RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

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

作者:admin 来源: 日期:2018/2/9 21:57:51 人气: 标签:

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;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料