请哪位大虾帮忙?

Question

请位用什么函数可以判断保留2位非零小数.

Answer 1

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

Answer 2

自己写函数吧 先FloatToStr 然后开始搜索第一个非0的数  比如0.0002356得到6 然后result:=copy(str,1,6+2-1)就行 具体就不写了