用quickrep做主从报表,从表的列合计数怎样转英文大写(200分)

  • 主题发起人 主题发起人 learnerdelphi
  • 开始时间 开始时间
L

learnerdelphi

Unregistered / Unconfirmed
GUEST, unregistred user!
我用quickrep做了一个主从报表,但现在要求要把从表的列合计数转换成大写英文,
请教各位高手如和实现?
 
upcase(....)
 
TO:rockjie 老兄,不太明白。能否说具体点!
 
upcase(....)是一个函数
用他可以将小写的英文字母改成大写的,你的要求是这个吗?是的话,用这个函数就可以了
 
TO:YANGXIAO_JIANG:
大哥呀,我是想把从表合计的数据转换成英文!
比于合计数是100。则要显示:one hundred
 
我想他的意思是说,如果 合计出来 的 5000, 那就写成five thousand 不知是不是这意思,
我也想知道这个该怎么做
 
蓝天说对了,怎么解决呀?
 
老兄:
你的结果是整数么,用笨方法试试
先做几个数组,比如说a[1]:="one" a[2]:="two"。。。。
然后计算出各个位数的值,比如千位,百位。。。
再以位数的值作为树组a的下标
相应的位数加上标示就可以了
举个例子哈:5673
先计算出千位5 则a[5]为five 加上位数 thousand
再计算出百位6 a[6]为 six 加上位数 hundred
后两位判断一下是不是小于20
然后按照相应的英语习惯写出来就可以了
 
TO:智者乐水
老兄不行呀!
1: 肯定有小数;
2: 我已经写了一个数字转英文的函数,但不知怎样把QRExpr产生的数据传入函数。
比喻:调用qrlabel1.TEXT:=IXCO(QRExpr1.Value),
其中QRExpr1.Value一定要是自符型的!
我不知怎样能把这个QRExpr产生的数据转换成字符型?
 
TO:智者乐水
老兄不行呀!
1: 肯定有小数;
2: 我已经写了一个数字转英文的函数,但不知怎样把QRExpr产生的数据传入函数。
比喻:调用qrlabel1.caption:=IXCO(QRExpr1.Value),
其中QRExpr1.Value一定要是自符型的!
我不知怎样能把这个QRExpr产生的数据转换成字符型?
 
用:
QRExpr1.Value.strResult ;
 
TO:svw0506:
大哥,这个FloatToStr( QRExpr1.Value)肯定不行呀!
系统会提示:incompatible types:’extended’and ’tqrevresult’
 
写错了,已经改了,看上面
 
改了更不明白,是否是列的总数转换成e文?
还是金额转e文?
 
TO:svw0506:
大哥,这个FloatToStr( QRExpr1.Value.strResult )肯定不行呀!你去试试呀!
TO:China_peng 你说的很正确!是把列的总数(金额)转成英文!
我已经写了一个数字(金额)转英文的函数,但不知怎样把QRExpr产生的数据传入函数
 
为什么不在主表中加入一段是:金额合计,英文金额,然后就好办了吧!我就是这样做的
 
大哥,有没有搞错, QRExpr1.Value.strResult 已经是字符型了,你还要用FloatToStr干什么?
如果你愿意费事的话用这个吧: QRExpr1.Value.dblResult 这个是双精度型的
 
到底谁是大哥啊 [:D][:D][:D]
 
有小数不是一样的道理么
你的小数最多两位吧
转换一下就行了
不能归类的做个数组
0-10 做数组 11-20做数组 30。40。50。。。90做数组。。。。
可以归类的就按照英语的规则写出来
 
TO: SVW0506 老兄:QRExpr1.Value.strResult并不是QRExpr1表达式产生的结果值呀!
我是要把QRExpr1产生的结果值传入函数,想一想 !
TO:智者乐水 大哥:写数字转英文的函数我会写!
我是要把QRExpr1表达式产生的结果值转换成字符型传入写好的函数!
 

Similar threads

回复
0
查看
848
不得闲
回复
0
查看
1K
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
824
DelphiTeacher的专栏
D
后退
顶部