2012年9月21日
pascal金额小写转大写
摘要： function TFormMain.SmallTOBig(small:real):string;var S1,B1,w1,qw1:string; qw,dwz,q:integer;begin s1 :=formatfloat('0.00',small); //格式化字符串 dwz:=pos('.'... 阅读全文
posted @ 2012-09-21 10:40 cuibq 阅读(167) 评论(0) 推荐(0) 编辑