财务（小写转大写）

Question

请问在财务系统开发中怎样才能把小写转变为大写啊
如（1对壹）
最好有原吗

Answer 1

function SmallTOBig(small:real):string;var
  SmallMonth,BigMonth:string;
  wei1,qianwei1:string[2];
  qianwei,dianweizhi,qian:integer;
begin  //------- 修改参数令值更精确 -------
  qianwei:=-2;//小数点后的位置，需要的话也可以改动-2值
  Smallmonth:=formatfloat('0.00',small);//转换成货币形式，需要的话小数点后加多几个零
  dianweizhi :=pos('.',Smallmonth);//小数点的位置  for qian:=length(Smallmonth) downto 1 do//循环小写货币的每一位，从小写的右边位置到左边
    begin
    if qian<>dianweizhi then//如果读到的不是小数点就继续
      begin
        case strtoint(copy(Smallmonth,qian,1)) of//位置上的数转换成大写
        1:wei1:='壹'; 2:wei1:='贰';
        3:wei1:='叁'; 4:wei1:='肆';
        5:wei1:='伍'; 6:wei1:='陆';
        7:wei1:='柒'; 8:wei1:='捌';
        9:wei1:='玖'; 0:wei1:='零';
        end;        case qianwei of//判断大写位置，可以继续增大到real类型的最大值
        -3:qianwei1:='厘';
        -2:qianwei1:='分';
        -1:qianwei1:='角';
        0 :qianwei1:='元';
        1 :qianwei1:='拾';
        2 :qianwei1:='佰';
        3 :qianwei1:='千';
        4 :qianwei1:='万';
        5 :qianwei1:='拾';
        6 :qianwei1:='佰';
        7 :qianwei1:='千';
        8 :qianwei1:='亿';
        9 :qianwei1:='十';
        10:qianwei1:='佰';
        11:qianwei1:='千';
        end;
        inc(qianwei);
        BigMonth :=wei1+qianwei1+BigMonth;//组合成大写金额
      end;
    SmallTOBig:=BigMonth;
    end;end;