小写转换为大写？

Question

比如：
1　是:壹
10　是:拾
13　是:壹叁
104　是：壹佰零肆
345　是：叁佰肆拾伍请教！！

Answer 1

给你一个函数
function DecimalToChinese(number: Extended; cntype: integer): string;
{介绍：参数number为Extended类型
 cntype=0:转换为人民币大写格式
 cntype=1:转化为数字大写格式
 例如：decimaltocn(45092034.541,0)  :'肆仟伍佰零玖万贰仟零叁拾肆元伍角肆分
       decimaltocn(45092034.541,1)  :'肆仟伍佰零玖万贰仟零叁拾肆点伍肆壹
 数值大小有限制，最大到百万亿 }
var
  numstr: array[1..12] of string; //中文数位名
  str1, str2, intstr, decstr: string;
  //整数部分,小数部分,大写整数部分,大写小数部分
  num: array[1..10] of string; //各个数位段,即每四位为一段
  n: array[1..10] of string; //各位数字
  number1, number2, number3: string; //定义数字的三个数位段
  pointpos: integer; //小数点位置
  decpos: integer;
  NumHead: string; //正负性
  NumberName: string; //用于代替参数Number的字符串
  NumLen: integer; //参数Number的串长度
begin
  if (Cntype <> 0) and (CnType <> 1) then
  begin
    showmessage('参数错误：选择转换类型参数值错误！');
    result := '';
    exit;
  end;
  {初始化}
  numstr[1] := '零';
  numstr[2] := '壹';
  numstr[3] := '贰';
  numstr[4] := '叁';
  numstr[5] := '肆';
  numstr[6] := '伍';
  numstr[7] := '陆';
  numstr[8] := '柒';
  numstr[9] := '捌';
  numstr[10] := '玖';
  numstr[11] := '拾';
  str1 := '';
  str2 := '';
  intstr := '';
  decstr := '';
  if Number < 0 then //如果是负数，则在前面加‘负'
  begin
    NumHead := '负';
    Number := -Number;
  end
  else
    NumHead := '';
  NumberName := Floattostr(Number);
  NumLen := Length(NumberName);
  pointpos := pos('.', NumberName);
  //以下将得到整数部分Str1和小数部分Str2
  if pointpos = 0 then //输入值为纯整数
  begin
    str1 := NumberName;
    str2 := ''
  end
  else //输入值为浮点数
  begin
    if cntype = 0 then //如果转换为人民币大写，并且小数数位超过2位，则只保留2位
      if (NumLen - pos('.', numberName)) > 2 then
        NumberName := trim(format('%' + inttostr(NumLen) + '.2f', [Number]));
    str1 := copy(numberName, 1, pos('.', numberName) - 1); //取整数部分
    str2 := copy(numberName, pos('.', numberName) + 1, length(numberName) -
      pos('.', numberName)); //取小数部分
    if strtoint64(str2) = 0 then //如果小数部分为0，则取消小数部分的分析
      str2 := '';
  end;
  {*****分析转换整数部分*****}
  {分析整数部分在100000000以上的}
  if length(str1) > 8 then
  begin
    //按每4位为一段拆分成三段，逐段分析
    num[1] := copy(str1, 1, length(str1) - 8); //取8位以上的那部分数段
    num[2] := copy(str1, length(str1) - 7, 4); //取千万到万的4位
    num[3] := copy(str1, length(str1) - 3, 4); //取千到个位的4位
    number1 := DecimalToChinese(strtoint64(num[1]), 1) + '亿';
    //通过函数嵌套调用，得到亿上的数段格式，即若干亿    if strtoint64(Num[2]) = 0 then //如果千万到万4位为0
    begin
      if strtoint64(Num[3]) = 0 then //并且末尾4位为0
        Number2 := '' //没有内容
      else
      begin
        if strtoint64(Num[3]) < 1000 then
          Number2 := '' //如果第三段也是零XX百十个，则中间段的"零"去掉
        else
          Number2 := numstr[1]; //读零
      end;
    end
    else
    begin
      if strtoint64(num[2]) > 1000 then //中间4位大于1000
        Number2 := DecimalToChinese(strtoint64(num[2]), 1) + '万'
      else
        Number2 := numStr[1] + DecimalToChinese(strtoint64(num[2]), 1) + '万';
      //不足一千万，则读X亿零xx百、十、万
    end;
    if strtoint64(Num[3]) = 0 then //末尾4位为0
      Number3 := ''
    else
    begin
      if strtoint64(num[3]) > 1000 then //末尾4位大于1000
        Number3 := DecimalToChinese(strtoint64(num[3]), 1)
      else
        Number3 := numstr[1] + DecimalToChinese(strtoint64(num[3]), 1);
      //不足一千，则读X万零XX百、十
    end;
    intstr := number1 + number2 + number3;
  end;  {分析整数部分在10000~99999999之间的}
  if (length(str1) >= 5) and (length(str1) <= 8) then
  begin
    num[1] := copy(str1, 1, length(str1) - 4); //取得第一段（千万位到万位）
    //为方便分析，若不足4位,用'0'补齐为4位
    if length(num[1]) = 3 then
      num[1] := '0' + num[1];
    if length(num[1]) = 2 then
      num[1] := '00' + num[1];
    if length(num[1]) = 1 then
      num[1] := '000' + num[1];
    num[2] := copy(str1, length(str1) - 3, 4); //取得第二段（千位到个位）
    number1 := DecimalToChinese(strtoint64(num[1]), 1) + '万';
    if strtoint64(num[2]) = 0 then
      number2 := ''
    else
    begin
      if strtoint64(num[2]) > 1000 then //中间4位大于1000
        Number2 := DecimalToChinese(strtoint64(num[2]), 1)
      else
        Number2 := numStr[1] + DecimalToChinese(strtoint64(num[2]), 1);
    end;
    intstr := number1 + number2;
  end;
  {分析整数部分不到10000的}
  if length(str1) < 5 then
  begin
    num[1] := str1;
    //不足4位,用'0'补齐
    if length(num[1]) = 3 then
      num[1] := '0' + num[1];
    if length(num[1]) = 2 then
      num[1] := '00' + num[1];
    if length(num[1]) = 1 then
      num[1] := '000' + num[1];
    number1 := ''; //亿以上的为空
    number2 := ''; //万以上的为空
    //分析千位
    if copy(num[1], 1, 1) = '0' then
      n[1] := ''
    else
      n[1] := numstr[strtoint64(copy(num[1], 1, 1)) + 1] + '仟';
    //分析百位
    if copy(num[1], 2, 1) = '0' then
    begin
      if copy(num[1], 1, 1) = '0' then
        n[2] := ''
      else
        n[2] := numstr[1]
    end
    else
      n[2] := numstr[strtoint64(copy(num[1], 2, 1)) + 1] + '佰';    //分析十位
    if copy(num[1], 3, 1) = '0' then
    begin
      if copy(num[1], 2, 1) = '0' then
        n[3] := ''
      else
        n[3] := numstr[1]
    end
    else
    begin
      if (copy(num[1], 1, 1) = '0') and (copy(num[1], 2, 1) = '0') and
        (copy(num[1], 3, 1) = '1') then //如果百位为0且十位为1则不读出壹字
        n[3] := '拾'
      else
        n[3] := numstr[strtoint64(copy(num[1], 3, 1)) + 1] + '拾';
    end;    //分析个位
    if copy(num[1], 4, 1) = '0' then
      n[4] := ''
    else
      n[4] := numstr[strtoint64(copy(num[1], 4, 1)) + 1];    //
    if copy(num[1], length(num[1]) - 2, 3) = '000' then //当末尾有000时
    begin
      n[2] := '';
      n[3] := '';
      n[4] := ''
    end;
    if copy(num[1], length(num[1]) - 1, 2) = '00' then //当末尾有00时
    begin
      n[3] := '';
      n[4] := ''
    end;
    if copy(num[1], length(num[1]), 1) = '0' then //当末尾有0时
      n[4] := '';
    //数段合并
    number3 := n[1] + n[2] + n[3] + n[4];
    //取得整数位值
    intstr := number1 + number2 + number3;
  end;
  {如果整数为零,转换为"零"}
  if str1 = '0' then
    intstr := numstr[1];  {整数转换完毕}  {*****分析和转换小数部分*****}
  if length(str2) > 0 then //如果小数数段不为空，则分析小数
  begin
    if cntype = 0 then {一.如果转换为人民币表达式}
    begin
      //不足2位，用零补足空位
      if length(str2) = 1 then
        str2 := str2 + '0';
      if copy(str2, 1, 1) = '0' then //角为0
      begin
        if Intstr = '零' then
          n[1] := ''
        else
          n[1] := '零'; //如果元为0，则不读0角，否则读零若干分
      end
      else
        n[1] := numstr[strtoint64(copy(str2, 1, 1)) + 1] + '角';
      if copy(str2, 2, 1) = '0' then
        n[2] := ''
      else
        n[2] := numstr[strtoint64(copy(str2, 2, 1)) + 1] + '分';
      decstr := n[1] + n[2];
    end
    else //二.如果转换为数字表达式
    begin
      decstr := '';
      for decpos := 1 to length(str2) do
      begin
        decstr := decstr + numstr[strtoint64(copy(str2, decpos, 1)) + 1];
      end;
    end;
  end;
  {小数转换完毕}
  {输出本函数的结果***********************}
  if cntype = 0 then //将数字字串转换为人民币的大写格式
  begin
    if str2 = '' then //如果为纯整数
      result := NumHead + intstr + '元整'
    else
    begin
      if intstr = '零' then //如果整数为零，就只显示小数
        result := NumHead + decstr
      else
        result := NumHead + intstr + '元' + decstr
    end;
  end;
  if cntype = 1