delphi金额大写转换

delphi金额大写转换因为找不到相关函数，便自己写了一个，是仿Excel 金额转换，不限金额长度。 const NumberArray: array[0..9] of string = ('零',