数字转换大写人民币的delphi实现
文章来源：IT工程信息网 http://www.systhinker.com/html/09/n-12309.html
之前用Access作一个应用，但找不到货币转换成大写人民币的功能（当然可以通过excel 转换，但不在一个应用上，放弃）。以为比较简单，自己试写，谁知用了两个晚上，才基本实现，但没有小数点（元）以下货币的转换。也没有兆的判断。而且对字符的合法性也没有检验。今天有时间，将其完善一下。（可能还会有考虑不周的地方）
思路：
1、判断是否带有小数点的金额，如果是，就找出小数点所在数据。该位字符不进行转换。
2、小数点前的作为整数位，进行转换。整数位的每一位都有表示金额的级别：拾、佰、仟。而且还有万、亿的级别。
3、小数点后的作为角、分、厘处理。
4、如果有连续的零，只显示一个零。如50006,显示为伍万零陆。如果是发生在拾、佰、仟位，该零还要去掉。
view source
< id="highlighter_197338_clipboard" title="copy to clipboard" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" width="16" height="16" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0" type="application/x-shockwave-flash">
print?
000
function TForm1.changeRmb(const strRmb:string):string;
001
var
002
txt,strhighlevel:string;
003
i,n,m,ilen,ipos:Integer; //n记录整数部分长度，m记录分数部分长度
004
strarray,strlevel:array of string;
005
p:pchar;
006
ispoint:boolean;//判断是否有小数点
007
begin
008
ispoint:=false;
009
result:='';
010
ipos:=0;
011
m:=0;
012
txt:=Trim(strRmb);
013
i:=1;
014
p:=PChar(txt);
015
//去除开头的0，以及.
016
if ((txt[1]='0') and (txt[2]<>'.')) or (txt[1]='.') then
017
begin
018
ShowMessage('第1位不能为0或者是.，退出操作');
019
exit;
020
end;
021
//检查字符的合法性
022
while (i<
相关文档：
dynamic就是它是动态方法，没有静态地址，所以速度慢一点
virtual是虚方法，如果在基类中不声明成虚方法的话，继承后，该方法会提示一警告信息，把基类中方法屏蔽掉了
---------------------------------------------------------------
动态（Dynamic）和虚拟（Virtual）后都可以使用Override关键字在派生类中对对应 ......
过程无返回值，函数有返回值。
procedure MyProc(m,n : Integer; o : String; p : Single = 2.5; q : String = 'Delphi');
如上例所示，过程声明和定义中，多个参数是用分号隔开的，但在调用时是用逗号隔开的 。eg：
......
32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。
一、创建和释放TRegistry对象
1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create；
2.释放TRegistry对象。对注册表操作结束后，应释放TRegistry对象所占内存：ARegistry.Destroy。
二 ......
Delphi的方法类型有：
1.静态方法 (Static) 默认类型，可以省略关键字
2.虚拟方法 (Virtual)
3.动态方法 (Dynamic)
4.消息方法 (Message)
5.抽象法方 (Abstract)
=======================================================
1）静态方法[static]
静态方法类似于通常的过程和函数，编译器在编译时就已指定了输出该方� ......
function ListFiles(Dir: String):TStrings;
var
FSearchRec: TSearchRec;
FileList: TStrings;
FindResult: Integer;
begin
if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
FileList :=TStringList.Create;
FindResult:=FindFirst(Dir+'*.*,faAnyFile+faDirectory,FSearchRec);
while FindRes ......
