reportbuilder 金额大写问题

Question

请问reportbuilder里面怎么将金额转换为大写？
代码要怎么用？用label还是variable呢？请高手门举个详细的操作例子OTZ

Answer 1

 qianwei:=1+i;
 vstr:='';
 vcramt:= dbcalc1.value+dbcalc2.value;
 
 Smallmonth:=formatfloat('0.00',vcramt);
 dianweizhi :=pos('.',Smallmonth);
 Bigmonth:='';
 for qian:=1 to length(Smallmonth) do
 begin
  qian1:=length(Smallmonth)-qian+1;
  if qian1<>dianweizhi then
  begin
   if copy(Smallmonth,qian1,1)='-' then wei1:='?o';
    case strtoint(copy(Smallmonth,qian1,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 
 1:qianwei1:='分';
 2:qianwei1:='角';
 3 :qianwei1:='元';
 4 :qianwei1:='拾';
 5 :qianwei1:='佰';
 6 :qianwei1:='千';
 7 :qianwei1:='万';
 8 :qianwei1:='拾';
 9 :qianwei1:='佰';
 10 :qianwei1:='千';
 11 :qianwei1:='亿';
 12 :qianwei1:='十';
 13:qianwei1:='佰';
 14:qianwei1:='千';
    end;
    qianwei:=qianwei+1;
    BigMonth :=wei1+qianwei1+BigMonth;  end;
 end;
 Value:=vstr+bigMonth;