RMB.rar_人民币_人民币 delphi

为方便进行打印票据中的人民币大写,把网上的一段代码装在VCL中,并加入负数处理. 其实就是一个函数VCL. 在程序中可以这样用 edit2.Text:=RMB1.GetBigStr(StrToFloat(edit1.text)); 或者这样 RMB1.small:=StrToFloat(edit1.text); edit2.Text:=RMB1.bigStr;