怎么把DBEDIT3.text中的数字,如果小于0.5就取0.5,大于或等于就不变,最后转换成整数形式并显示出来。
解决方案 »
- fastreport打印格式
- 请高手看看这个是什么错误?急救
- 一个三层数据库,换了服务器运行就提示“加载类型库/DLL失败”
- 这样报表用fastreport是否可以做到?
- 如何格式化硬盘分区?*_*
- 如何设置DBGrid的一列不可修改
- 继续寻找一个可以根据数据库表生成delphi和vb类的工具软件
- 哪里有比较好的关于soap方面的网站?
- 怎么实现将指定的文本文件导入excel指定单元格
- 如何将将一个字符串写入一个文件流中???
- 怎样在安装程序中加入access2000的驱动阿?
- 怎樣用Delphi Code 實現 Access2000 Report 的 preview or print Action?
if StrToFloat(DBEdit3.Text)<0.5 then
DBEdit3.Text := '0.5';
except
end;
round()//四舍五入
trunc()//取整
返回6.67
if StrToFloat(DBEdit3.Text)<0.5 then
DBEdit3.Text := '0.5'
else begin
edit3.text:=inttostr(round(strtofloat(dbedit3.text));end;
DBEdit3.Text := '0.5'
else begin
edit3.text:=inttostr(round(strtofloat(DBEdit3.text));
end;
应该没有问题吧!!!!