📄 字符串处理.htm
字号:
<html><head><style type="text/css"><!--.p9 { font-family: "宋体"; font-size: 9pt}a {text-transform: none; text-decoration: none;}a:hover {text-decoration: underline; color: #FF0000;}--></style><title></title></head><body background="di2001.jpg"><h3 align="center"><font COLOR="#AOAO99">字符串处理</font></h3><table width="100%"> <tr> <td><font color="0000FF"><a name="1">将12345678.99转换成12,345,678.99</a></font></td> </tr> <tr> <td> 方法:<br> var<br> n : DOUBLE ;<br> begin<br> n:=12345678.99;<br> ShowMessage(Format('%*.*n',[10,2,n]));<br> end;<br> </td> </tr> <tr> <td><font color="0000FF"><a name="2">小写金额转换</a></font></td> </tr> <tr> <td> 如下为一个简单的小写金额转换为大写的函数，其思路简单（可以说烂吧，居然利用了位置来转换），但是它几乎可以无限制的转换，只要你能读得出来和写得进去：<br> function Tform1.SmallTOBig(small:real):string;<br> var SmallMonth,BigMonth:string;<br> wei1,qianwei1:string[2];<br> wei,qianwei,dianweizhi,qian:integer;<br> begin<br> {------- 修改参数令值更精确 -------}<br> qianwei:=-2;{小数点后的位置，需要的话也可以改动-2值}<br> Smallmonth:=formatfloat('0.00',small);{转换成货币形式，需要的话小数点后加多几个零}<br> {---------------------------------}<br> dianweizhi :=pos('.',Smallmonth);{小数点的位置}<br> for qian:=length(Smallmonth) downto 1 do{循环小写货币的每一位，从小写的右边位置到左边}<br> begin<br> if qian<>dianweizhi then{如果读到的不是小数点就继续}<br> begin<br> case strtoint(copy(Smallmonth,qian,1)) of{位置上的数转换成大写}<br> 1:wei1:='壹'; 2:wei1:='贰';<br> 3:wei1:='叁'; 4:wei1:='肆';<br> 5:wei1:='伍'; 6:wei1:='陆';<br> 7:wei1:='柒'; 8:wei1:='捌';<br> 9:wei1:='玖'; 0:wei1:='零';<br> end;<br> case qianwei of{判断大写位置，可以继续增大到real类型的最大值}<br> -3:qianwei1:='厘';<br> -2:qianwei1:='分';<br> -1:qianwei1:='角';<br> 0 :qianwei1:='元';<br> 1 :qianwei1:='拾';<br> 2 :qianwei1:='佰';<br> 3 :qianwei1:='千';<br> 4 :qianwei1:='万';<br> 5 :qianwei1:='拾';<br> 6 :qianwei1:='佰';<br> 7 :qianwei1:='千';<br> 8 :qianwei1:='亿';<br> 9 :qianwei1:='十';<br> 10:qianwei1:='佰';<br> 11:qianwei1:='千';<br> end;<br> inc(qianwei);<br> BigMonth :=wei1+qianwei1+BigMonth;{组合成大写金额}<br> end;<br> end;<br> SmallTOBig:=BigMonth;<br> end;<br> 调用如下“edit1.text:=SmallTOBig(1234567890.1234);”他自动默认小数点后两位<br> </td> </tr> <tr> <td><font color="0000FF"><a name="3">替换指定串函数</a></font></td> </tr> <tr> <td>一个替换指定串的函数，从一个字符串中找出指定子串，并替换为另一子串。<br> function replacing(S,source,target:string):string;<br> var site,StrLen:integer;<br> begin<br> {source在S中出现的位置}<br> site:=pos(source,s);<br> {source的长度}<br> StrLen:=length(source);<br> {删除source字符串}<br> delete(s,site,StrLen);<br> {插入target字符串到S中}<br> insert(target,s,site);<br> {返回新串}<br> replacing:=s;<br> end;<br> </td> </tr></table><p align="center"> </p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -