数字小写转中文大写 xe5以上专用

从麦麦提敏处转载 非常好用

{感谢麦麦提敏的公开}

 function Changdx2(mmje: Double): String;       //xe5专用版
const
    s1: String = '零壹贰叁肆伍陆柒捌玖';
    s2: String = '分角元拾佰仟万拾佰仟亿拾佰仟兆';

    function StrTran(const S, S1, S2: String): String;
    begin
        Result := StringReplace(S, S1, S2, [rfReplaceAll]);
     end;

var
    s, dx: String;
    i, Len: Integer;
begin
    if mmje < 0 then
    begin
       dx := '负';
       mmje := -mmje;
    end;

    s := Format('%.0f', [mmje*100]);
    Len := Length(s);

    for i := 1 to Len do
    begin
        dx := dx + Copy(s1, (Ord(s[i]) - Ord('0')) + 1, 1) + Copy(s2, (Len - i)  + 1, 1);
    end;

     dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零仟', '零'), '零佰', '零'), '零拾', '零'), '零角', '零'), '零分', '整');
     dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零零', '零'), '零零', '零'), '零亿', '亿'), '零万', '万'), '零元', '元');

    if dx = '整' then
      Result := '零'
    else
      Result := StrTran(StrTran(StrTran(StrTran(dx, '亿万', '亿零'), '零整', '整'),'零元','元'),'零零','零');
end;