中文数字表达(数字转大写)

///////Begin Source

function NumberCn(mNumber: Real): WideString;

const

cPointCn: WideString = '点十百千万十百千亿十百千';

cNumberCn: WideString = '零一二三四五六七八九';

var

I, L, P: Integer;

S: string;

begin

Result := '';

if mNumber = 0 then begin

Result := cNumberCn[1];

Exit;

end;

S := FloatToStr(mNumber);

if Pos('.', S) <= 0 then S := S + '.';

P := Pos('.', S);

L := Length(S);

for I := 1 to L do

if P > I then

Result := Result + cNumberCn[StrToInt(S[I]) + 1] + cPointCn[P - I]

else if P = I then begin

Result := StringReplace(Result, '零十零', '零', [rfReplaceAll]);

Result := StringReplace(Result, '零百零', '零', [rfReplaceAll]);

Result := StringReplace(Result, '零千零', '零', [rfReplaceAll]);

Result := StringReplace(Result, '零十', '零', [rfReplaceAll]);

Result := StringReplace(Result, '零百', '零', [rfReplaceAll]);

Result := StringReplace(Result, '零千', '零', [rfReplaceAll]);

Result := StringReplace(Result, '零万', '万', [rfReplaceAll]);

Result := StringReplace(Result, '零亿', '亿', [rfReplaceAll]);

Result := StringReplace(Result, '亿万', '亿', [rfReplaceAll]);

Result := StringReplace(Result, '零点', '点', [rfReplaceAll]);

end else if P < I then

Result := Result + cNumberCn[StrToInt(S[I]) + 1];

if Result[Length(Result)] = cPointCn[1] then

Result := Copy(Result, 1, Length(Result) - 1);

if Result[1] = cPointCn[1] then Result := cNumberCn[1] + Result;

if (Length(Result) > 1) and (Result[2] = cPointCn[2]) and

(Result[1] = cNumberCn[2]) then

Delete(Result, 1, 1);

end; { NumberCn }

function MoneyCn(mMoney: Real): WideString;

var

P: Integer;

begin

if mMoney = 0 then begin

Result := '无';

Exit;

end;

Result := NumberCn(Round(mMoney * 100) / 100);

Result := StringReplace(Result, '一', '壹', [rfReplaceAll]);

Result := StringReplace(Result, '二', '贰', [rfReplaceAll]);

Result := StringReplace(Result, '三', '叁', [rfReplaceAll]);

Result := StringReplace(Result, '四', '肆', [rfReplaceAll]);

Result := StringReplace(Result, '五', '伍', [rfReplaceAll]);

Result := StringReplace(Result, '六', '陆', [rfReplaceAll]);

Result := StringReplace(Result, '七', '柒', [rfReplaceAll]);

Result := StringReplace(Result, '八', '捌', [rfReplaceAll]);

Result := StringReplace(Result, '九', '玖', [rfReplaceAll]);

Result := StringReplace(Result, '九', '玖', [rfReplaceAll]);

Result := StringReplace(Result, '十', '拾', [rfReplaceAll]);

Result := StringReplace(Result, '百', '佰', [rfReplaceAll]);

Result := StringReplace(Result, '千', '仟', [rfReplaceAll]);

P := Pos('点', Result);

if P > 0 then begin

Insert('分', Result, P + 3);

Insert('角', Result, P + 2);

Result := StringReplace(Result, '点', '圆', [rfReplaceAll]);

Result := StringReplace(Result, '角分', '角', [rfReplaceAll]);

Result := StringReplace(Result, '零分', '', [rfReplaceAll]);

Result := StringReplace(Result, '零角', '', [rfReplaceAll]);

Result := StringReplace(Result, '分角', '', [rfReplaceAll]);

if Copy(Result, 1, 2) = '零圆' then

Result := StringReplace(Result, '零圆', '', [rfReplaceAll]);

end else Result := Result + '圆整';

Result := '人民币' + Result;

end; { MoneyCn }

///////End Source

///////Begin Demo

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text := MoneyCn(StrToFloatDef(Edit3.Text, 0));

Edit2.Text := NumberCn(StrToFloatDef(Edit3.Text, 0));

end;

///////End Demo