大小写转换.txt

支票打印

type dx=record
     yr:string;
end ;
rq:array[1..31] of dx;
rq[1].yr:='壹';
rq[2].yr:='贰';
rq[3].yr:='参';
rq[4].yr:='肆';
rq[5].yr:='伍';
rq[6].yr:='陆';
rq[7].yr:='柒';
rq[8].yr:='捌';
rq[9].yr:='玖';
rq[10].yr:='拾';
rq[11].yr:='壹拾壹';
rq[12].yr:='壹拾贰';
rq[13].yr:='壹拾参';
rq[14].yr:='壹拾肆';
rq[15].yr:='壹拾伍';
rq[16].yr:='壹拾陆';
rq[17].yr:='壹拾柒';
rq[18].yr:='壹拾捌';
rq[19].yr:='壹拾玖';
rq[21].yr:='贰拾壹';
rq[21].yr:='贰拾贰';
rq[23].yr:='贰拾参';
rq[24].yr:='贰拾肆';
rq[25].yr:='贰拾伍';
rq[26].yr:='贰拾陆';
rq[27].yr:='贰拾柒';
rq[28].yr:='贰拾捌';
rq[29].yr:='贰拾玖';
rq[30].yr:='参拾';
rq[31].yr:='参拾壹';