delphi 金额大小写转换 源码

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件     394870  2008-12-29 11:39  Project1.map

     文件      13782  2008-12-29 11:39  Unit1.dfm

     文件       4287  2006-08-07 10:42  Unit1.pas

     文件         51  2006-08-07 10:42  Unit1.~ddp

     文件      13782  2006-08-07 10:42  Unit1.~dfm

     文件       4287  2006-08-07 10:42  Unit1.~pas

     文件       8030  2008-12-29 11:39  Unit1.dcu

     文件         51  2006-08-07 10:42  Unit1.ddp

     文件        171  2008-12-29 12:02  Project1.identcache

     文件        391  2006-08-07 10:42  Project1.cfg

     文件        188  2006-08-07 10:42  Project1.dpr

     文件       3832  2008-12-29 12:02  Project1.dproj

     文件     427008  2008-12-29 11:39  Project1.exe

     文件        876  2006-08-07 10:42  Project1.res

     文件       6469  2006-08-07 10:42  Project1.~dsk

     文件       2381  2006-08-07 10:42  Project1.dof

     文件         62  2008-12-29 12:02  Project1.dproj.local

     文件      17956  2008-12-29 11:39  Project1.drc

     文件       6711  2006-08-07 10:42  Project1.dsk

----------- ---------  ---------- -----  ----

               905185                    19