Delphi2010のソースコードのamoutを順番に量
管理者によって2009年12月17日に公表され
始めてDelphi2010サポート大文字セット、文字元々 2バイトので、今Delphi2010はバイトを占め、その本来の機能Delphi2010使用することはできないの下で、次のように、元の関数は現在修正されます。
ToBigRMB機能（NUM：通貨）：文字列;
CONST
なBigNumber =「ゼロ一つIIトリプルストア呉呂Baの九の気」;
BigUnit =「ワン千白白兆ピックアップピックアップワン銭バイ10ドル」;
{13の合計を表します量}
VAR
nLeft、nRigth、ltemp、RTEMP、BigNumber1、BigUnit1、RMB、S：文字列;
I：整数、
整数部と小数部}取る{始める
RMBを：= FormatCurr（ '0.00'、NUM）;
nLeft：=コピー（ RMB ,. 1、順位（RMB ' '） - 1）;
nRigth：=コピー（'。' RMB、順位（RMB）+ 1、2）;
{整数変換部}
nLeft <> '0'をIF
。私のために：= 1長さ（nLeft）に実行
開始
（+なBigNumber、StrToInt（nLeft [I]）1 ,. 1）=コピー; BigNumber1
BigUnit1：=コピー（BigUnitを、（長さ（BigUnit） -長さ（nLeft）+ I - 1）+ 1 ,. 1）;
S：=コピー（ltemp、長さ（ltemp）-1 ,. 1）。
IF（BigNumber1 = '零'）及び（S = '零'）次に
lTemp：=コピー（lTemp、1、長さ（lTemp） - 2）。
IF（BigNumber1 = '零'）及び（（BigUnit1 = '亿'）または（BigUnit1 = '万'）または（BigUnit1 = '元'））を
開始
BigNumber1：= BigUnit1。
もしBigUnit1 <> '元'を
BigUnit1：= '零'
他
BigUnit1：= '';
終わり;
IF（BigNumber1 = '零'）及び（BigUnit1 <> '亿'）及び（BigUnit1 <> '万'）及び（BigUnit1 <> '元'）次に
BigUnit1：= '';
lTemp：= lTemp + BigNumber1 + BigUnit1。
終わり;
lTemp：= StringReplace（lTemp、 '亿万'、 '亿'、[rfReplaceAll]）。
lTemp：= StringReplace（lTemp、 '零零'、 '零'、
次いでStrToInt（nRigth [1]）<> 0の場合
RTEMP：=コピー（なBigNumber、StrToInt（nRigth [1]）* 1 + 1、1）+ '角'。
もしStrToInt（nRigth [2]）<> 0の場合
始める
場合（nLeft <> '0'）及び（StrToInt（nRigth [1]）= 0）を
RTEMP：= '零'。
RTEMP：= RTEMP +コピー（なBigNumber、StrToInt（nRigth [2]）* 1 + 1、1）+ '分'。
人民元：= lTemp + RTEMP。
終了
他
RMB：= lTemp + RTEMP + 'を整';
結果：=人民元;
終わり;