[函数]获取汉字首拼音字符函数

目前比较能用的一个函数了,来源记不清楚了好像是咏南的博客。 声明函数,再调用即可。 代码如下: function CnPYIndex(const CnString: string): string; { 返回中文的拼音首字母 } const ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (

分享个Delphi人民币转大写的函数

                开发到财务方面的东西,往往需要把数值转换成大写金额输出。 网上找了一圈都没发现完美的,尤其是在XE系列下。 发现这个写法还是比较满意的,特分享。   function THxsdj.UPRMB(val: Double): string; {人民币转大写函数}   var     Dig, Dpos, retVal, retValjf: string;     IntPart:

表单自编号规则

以前开发的规则是从数据库中以计数形式累计+1,但是出现删除单据后会出现变的错乱。 遂又寻找方案,在群里,群主提到了他的编号规则,时间日期,产生一启发。 方案1: 代码:jbbh.Caption:='SC'+FormatDateTime('yymmddhhmmss',Now())+inttostr(Random(9));/ 一句话搞定,另或采用函数: 代码如下: function zibianhao(str1: string): string; {自编号//代码由序