金额的大小写转换.txt

支票打印

var
  num,num1,ws,i,j,l,m:Integer;
  str1:string;
 begin

    num:=StrToInt(edit1.text);
    num1:=num;
    ws:=1;
    str1:='';

    while num1>10 do
     begin
     ws:=ws+1;
     num1:=num1 div 10;
     end ;

    for i:= ws downto 1 do
      begin
         l:=1;m:=1;
         for j:=i-1 downto 1 do
           l:=l*10;
         m:=num div l;
         num:=num mod l;
         str1:=str1+rq[m].yr+xxje[i].dw;
      end;
    edit2.text:=str1;