Gold amount lowercase switching function

// Gold amount lowercase switch //

// Wuhan exploring computer studio //

//

http://tansuo.51.net //

Function TobigRMB (Num: Currency): String;

Const

Bignumber = 'zero Zhai 叁 肆 柒捌';

BiGUnit = 'Wan Yiyi picking up billions of 佰 万 佰 佰 元';

{A co-representation of 13 amounts}

VAR

NLEFT, NRIGTH, LTEMP, RTEMP, BIGNUMBER1, BIGUNIT1, RMB: STRING

I: integer;

Begin {Take the integer and decimal part}

RMB: = FormatCurr ('0.00', NUM);

NLEFT: = COPY (RMB, 1, POS ('.', RMB) - 1);

NRIGTH: = COPY (RMB, POS (', RMB) 1, 2);

{Conversion integer part}

IF NLEFT <> 0 'THEN

For i: = 1 to Length (NLEFT) DO

Begin

Bignumber1: = COPY (Bignumber, StrtOINT (NLEFT