5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
yayx 2004-01-31
- 打赏
- 举报
自己写函数吧 先FloatToStr 然后开始搜索第一个非0的数 比如0.0002356得到6 然后result:=copy(str,1,6+2-1)就行 具体就不写了
shuqinyaxiu 2004-01-31
- 打赏
- 举报
是这样的,我现在要保留两位小数,但如果前两位是零的话就往后判断两位非零数字.比如:0.0002356,如果保留两位就成了0 了,我想能不能保留为0.00024.
DY2003 2004-01-31
- 打赏
- 举报
format
penet 2004-01-31
- 打赏
- 举报
trunc函数
licun8223 2004-01-31
- 打赏
- 举报
你举个例子
shuqinyaxiu 2004-01-31
- 打赏
- 举报
谢谢楼上的兄弟,请问有没有什么函数可以保留小数点后除零以外的两位有效数字.
licun8223 2004-01-31
- 打赏
- 举报
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;
var
s:string;
ef:extended;
begin
s:='#.'+StringOfChar('0',i);
ef:=StrToFloat(FloatToStr(f));//防止浮点运算的误差
result:=StrToFloat(FormatFloat(s,ef));
end;
licun8223 2004-01-31
- 打赏
- 举报
Round
