![](https://img-blog.csdnimg.cn/20201014180756754.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
DELPHI7
文章平均质量分 63
China学习者
DELPHI7 数据库 学习
展开
-
小数位数的保留及大写转换代码
============================ 保留1位小数 =========================== function BL1(s: real): real; var r1, r2: real; s1, s2: string; begin r1 := int(s); r2 := frac(s); s1 := copy(floattostr(r1),原创 2014-04-04 14:17:59 · 778 阅读 · 0 评论 -
小数位数的保留代码与大小写转换
小数位数的保留代码 最近写了两个小工具,要将小数部分四舍五入至一位小数和整数,可函数中round()是所谓的银行家进位法,实在用不了。无奈找度娘询问了一阵,结果不尽人情呀,最后找到一个保留两位小数的代码,通过修改后令人满意。现分享大家留着备用: ================================ 四舍五入到整数 ==========================原创 2014-01-08 08:50:06 · 677 阅读 · 0 评论 -
自己写的一个小软件日志通讯录记帐
绿色无须安装,原码,大家可以下载学习改进。 下载地址:http://yun.baidu.com/share/link?shareid=244360559&uk=2788081637原创 2014-12-15 11:39:42 · 442 阅读 · 0 评论