类似打印发票,求助(50分)

  • 主题发起人 xuefeiyang
  • 开始时间
X

xuefeiyang

Unregistered / Unconfirmed
GUEST, unregistred user!
类似打印发票,如:
借方金额
千百十万千百十元角分
1 2 3 4 5 6 7 8 9 9
即12345678.99如何按位拆分,在其对应的位置上打印?
 
用10的N次方求余,然后相减
a:=12345678.99-(12345678.99 MOD 10000000)*10000000
a就等于第一位的1了
看懂了吗?
 
用第三方控件(报表)设计
 
我有函数,如果要
njhmq@sina.com
 
N=6
A=12345678.99-(12345678.99 MOD 1000000)*1000000=12000000
 
哪里有第三方控件??
 
你是不是要把小写金额转大写金额?
 
不转成大写
 
我有控件
 
怎么联系呢?
 
将浮点数转换成字符串,用copy()函数按位取。
 
用floattostr转换实数后经常出现少了0.1情况
我就十分怀疑计算机的能力
 
“千”和“1”的位置是确定了的。
那么“2”的横坐标位置就是“1”的位置+Printer.Canvas.TexeWidth('千'),依次类推就行了。
关于求每一个数值,上面大家都有好方法了。
 
p96114所说的方法可以看看。首先可以确定字符串的长度,然后一个一个地取!
估计问题不大!
 
但是用floattostr转换实数后经常出现少了0.1情况
而再转回去就又不少了
很是不解
 
用format函数转成像要得字符串呢!
 
怎么用format函数?
 
formatfloat('#0.00',Num) 就可以得到類似123.23格式了。
前些日子借了一個支票打印的﹐以及銀行進帳單的程序﹐取數不是問題﹐最難的是要對准﹐
呀﹐費了好大的力氣才調好。
 
这个我也试过啊
 
5937651@163.net
 

Similar threads

D
回复
0
查看
710
DelphiTeacher的专栏
D
D
回复
0
查看
734
DelphiTeacher的专栏
D
D
回复
0
查看
583
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部