字符算法问题?为什么不能保留小数?

sixgj 2018-04-20 04:03:26
Labeltt.Caption:=FloatToStr(round(StrtoFloat(label1.Caption)/ StrtoFloat(label3.Caption))) ;



想保留四位小数,但加上就不行了。

Labeltt.Caption:=FloatToStr(round(StrtoFloat(label1.Caption)/ StrtoFloat(label3.Caption),4)) ;


...全文
1640 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
shw014 2018-04-24
  • 打赏
  • 举报
回复
不好意思 上面最后一段文字抄delphi 7帮助 实际测试 RoundTo(1234567, 3) 1235000 RoundTo(1.245, -2) 1.25
shw014 2018-04-24
  • 打赏
  • 举报
回复
您可以这样:
 Round(AValue * 10000) / 10000;
Delphi的 MATH库实现了 RoundTo 函数 Expression Value RoundTo(1234567, 3) 1234000 RoundTo(1.234, -2) 1.23 RoundTo(1.235, -2) 1.24 RoundTo(1.245, -2) 1.24
sixgj 2018-04-24
  • 打赏
  • 举报
回复
请问为啥round不能用呢?
lyhoo163 2018-04-20
  • 打赏
  • 举报
回复
引用 1 楼 DelphiGuy 的回复:
Labeltt.Caption := Format('%0.4f', [StrToFloat(label1.Caption) / StrToFloat(label3.Caption)]);
  • 打赏
  • 举报
回复
Labeltt.Caption := Format('%0.4f', [StrToFloat(label1.Caption) / StrToFloat(label3.Caption)]);

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧