您的位置：程序门 -> delphi -> 语言基础/算法/系统设计

菜鸟求助

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

菜鸟求助

发表于：2007-12-17 21:00:55 楼主

begin
memo69.lines.clear;
if [qryhead."bqcount"]=0 then
memo69.lines.clear
else
memo69.lines.add（[qryhead."bqcount"])
end

请大家帮我把这条语句修该为输出的统计信息能进行
四舍五入（算术四舍五入不是银行的四舍六入）

发表于：2007-12-21 14:21:041楼得分:0

begin
memo69.lines.clear;
if [qryhead."bqcount"]=0 then
memo69.lines.clear
else
memo69.lines.add（inttostr（round（[qryhead."bqcount"])))
end

发表于：2007-12-21 14:50:082楼得分:0

楼上正确

发表于：2007-12-22 22:58:453楼得分:0

都说了不是银行的四舍六入，应该用以下这个！

formatfloat（'0.00', strtofloat（floattostr（a)));即可

begin
memo69.lines.clear;
if [qryhead."bqcount"]=0 then
memo69.lines.clear
else
memo69.lines.add（inttostr（formatfloat（'0.00', strtofloat（floattostr（[qryhead."bqcount"])))))
end

下一篇：此段代码为什么不能找出需要的字符？
上一篇：新手提滴一个不知道是不是技术上滴问题！！！

其他资讯