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

L

learnerdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #1

我用quickrep做了一个主从报表，但现在要求要把从表的列合计数转换成大写英文，
请教各位高手如和实现？

 

R

rockjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #2

upcase(....)

 

L

learnerdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #3

TO:rockjie 老兄，不太明白。能否说具体点！

 

Y

yangxiao_jiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #4

upcase(....)是一个函数
用他可以将小写的英文字母改成大写的，你的要求是这个吗？是的话，用这个函数就可以了

 

L

learnerdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #5

TO:YANGXIAO_JIANG:
大哥呀，我是想把从表合计的数据转换成英文！
比于合计数是100。则要显示：one hundred

 

★

★蓝天★

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #6

我想他的意思是说,如果 合计出来 的 5000, 那就写成five thousand 不知是不是这意思,
我也想知道这个该怎么做

 

L

learnerdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #7

蓝天说对了，怎么解决呀？

 

智

智者乐水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #8

老兄：
你的结果是整数么，用笨方法试试
先做几个数组，比如说a[1]:="one" a[2]:="two"。。。。
然后计算出各个位数的值，比如千位，百位。。。
再以位数的值作为树组a的下标
相应的位数加上标示就可以了
举个例子哈：5673
先计算出千位5 则a[5]为five 加上位数 thousand
再计算出百位6 a[6]为 six 加上位数 hundred
后两位判断一下是不是小于20
然后按照相应的英语习惯写出来就可以了

 

L

learnerdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #9

TO：智者乐水
老兄不行呀！
1: 肯定有小数；
2: 我已经写了一个数字转英文的函数，但不知怎样把QRExpr产生的数据传入函数。
比喻：调用qrlabel1.TEXT：=IXCO（QRExpr1.Value），
其中QRExpr1.Value一定要是自符型的！
我不知怎样能把这个QRExpr产生的数据转换成字符型？

 

L

learnerdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #10

TO：智者乐水
老兄不行呀！
1: 肯定有小数；
2: 我已经写了一个数字转英文的函数，但不知怎样把QRExpr产生的数据传入函数。
比喻：调用qrlabel1.caption：=IXCO（QRExpr1.Value），
其中QRExpr1.Value一定要是自符型的！
我不知怎样能把这个QRExpr产生的数据转换成字符型？

 

S

svw0506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #11

用：
QRExpr1.Value.strResult ;

 

L

learnerdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #12

TO:svw0506:
大哥，这个FloatToStr( QRExpr1.Value)肯定不行呀！
系统会提示：incompatible types：’extended’and ’tqrevresult’

 

S

svw0506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #13

写错了，已经改了，看上面

 

C

china_peng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #14

改了更不明白，是否是列的总数转换成e文？
还是金额转e文？

 

L

learnerdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #15

TO:svw0506:
大哥，这个FloatToStr( QRExpr1.Value.strResult )肯定不行呀！你去试试呀！
TO：China_peng 你说的很正确！是把列的总数（金额）转成英文！
我已经写了一个数字（金额）转英文的函数，但不知怎样把QRExpr产生的数据传入函数

 

王

王公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #16

为什么不在主表中加入一段是:金额合计,英文金额,然后就好办了吧!我就是这样做的

 

S

svw0506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #17

大哥，有没有搞错， QRExpr1.Value.strResult 已经是字符型了，你还要用FloatToStr干什么？
如果你愿意费事的话用这个吧： QRExpr1.Value.dblResult 这个是双精度型的

 

智

智者乐水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #18

到底谁是大哥啊 [][][]

 

智

智者乐水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #19

有小数不是一样的道理么
你的小数最多两位吧
转换一下就行了
不能归类的做个数组
0-10 做数组 11-20做数组 30。40。50。。。90做数组。。。。
可以归类的就按照英语的规则写出来

 

L

learnerdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #20

TO: SVW0506 老兄：QRExpr1.Value.strResult并不是QRExpr1表达式产生的结果值呀！
我是要把QRExpr1产生的结果值传入函数，想一想 ！
TO：智者乐水 大哥：写数字转英文的函数我会写！
我是要把QRExpr1表达式产生的结果值转换成字符型传入写好的函数！