cnupper,是一个关于人民币大小写转换的控件,不知大家用过没有。在它的demo里有这么一段当单击转换按钮时,将edit1中的字符转化为大写汉字
显示在memo1中
procedure TForm1.Button1Click(Sender: TObject);
var
v: Extended;
begin
v := StrToFloatDef(Edit1.Text, 0);
//将edit1的文本转化为浮点数
Memo1.Lines.Add('转化结果: ' + CnDigits1.ChineseUpper(v));
//调用控件进行转换并给memo1赋值
Memo1.Lines.Add('');
end;使用很简单,但我想在quickreport中实现发票的打印,需要调用qrexpr的
表达式的值直接在发票中‘人民币大写’字样后显示汉字,,把上述代码直接
改写放到QRlabel的print事件中,但预览时,一点反应也没有,请各位给
诊断一下。是不是我的方法不对,代码该如何改写,放在那里才正确呢?
先谢谢了。
显示在memo1中
procedure TForm1.Button1Click(Sender: TObject);
var
v: Extended;
begin
v := StrToFloatDef(Edit1.Text, 0);
//将edit1的文本转化为浮点数
Memo1.Lines.Add('转化结果: ' + CnDigits1.ChineseUpper(v));
//调用控件进行转换并给memo1赋值
Memo1.Lines.Add('');
end;使用很简单,但我想在quickreport中实现发票的打印,需要调用qrexpr的
表达式的值直接在发票中‘人民币大写’字样后显示汉字,,把上述代码直接
改写放到QRlabel的print事件中,但预览时,一点反应也没有,请各位给
诊断一下。是不是我的方法不对,代码该如何改写,放在那里才正确呢?
先谢谢了。
解决方案 »
- Timer与对话框的问题
- 怎么用DELPHI调用操作系统中的浏览器?
- 请问能不能让一个adodataset里的记录,与数据库里A表的数据相对比,看是否一样??在线等,解决完马上给分
- GlobalMemoryStatus()函数问题
- 在DELPHI中如何将EDIT.TEXT的内容付给字符数组请举例,返回PCHAR类型的函数如何写
- 有了一颗星星,散点分!
- 一个程序开始端像dehpi会有一张图片以便缓冲,问这张图片怎么在程序中设制?
- 谁知道那有英文的sql书下载??
- 菜鸟问题,快来拿分!
- 请问是不是需要按日期查找数据库里的内容时,其库里关于日期的字段必须为Date类型?但运行的时候总是说类型不匹配?为什么?我都要疯了!
- ★★《Delphi技巧集》
- 给出相关参数怎么画圆锥,圆台?100分求救!!!
你打印出来,才能看到结果,
预览时和答应的结果不完全一样!!!