请教各位,这个控件怎么用?

kevinhood 2003-05-09 12:06:32
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事件中,但预览时,一点反应也没有,请各位给
诊断一下。是不是我的方法不对,代码该如何改写,放在那里才正确呢?
先谢谢了。
...全文
98 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
sunssc 2003-05-09
  • 打赏
  • 举报
回复
我没有用过,
你打印出来,才能看到结果,
预览时和答应的结果不完全一样!!!
仿QQ音乐播放器文件List控件 =================================== 一款界面类的源代码主要模仿QQ音乐播放器中的文件列表List控件界面。 以下是作者信息:在此感谢这位网友,有问题可以直接找作者沟通请教。 '联系QQ 506422660 'E-Mail Owhao@126.com 'QQ: 74XXX23 '如果没事请勿打扰 '只花费了一个早上,因为有前一个基础 '帮一个网吧写点歌系统,写了一个播放列表控件,因为是自己用,所以功能和样式都是固定的 '所以在前面的基础上,重写了这个播放列表 '【//修正信息: '//修正了一个BUG '//因为是急匆匆完成,我没有那么多时间去调试 '//现在发现的一个BUG就是绘画底部的项如果是空白的不会擦除 '//如果每次擦除,会闪烁,肯定是我的思路里有很大的BUG '//就是这个BUG,这个源码已经修正】 '我没时间去修改了(因为我是很懒的) '各位根据自己的要求,去修改吧。 '因为找不到QQ音乐的那个绿色的播放图标,打开下面的所有EXE、DLL、ICO、Image都找不到。。。 '所以用另外一个图标代替了。 '这个图标放在资源文件 TCICON 中的 PLAYICON 里。 '支持真彩色带 Alpha 通道的图标,替换只要替换这个资源就可以了 '替换后修改一下 Private Const ICON_SIZE As Long = 12 '图标的尺寸 ' 【版权声明】 '欢迎自由传播或者商业用途。但是请保留原作者 '最终版权归作者所有 2009-03-06 作者已经修复了几处BUG,请大家下载更新。感谢作者。

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧