Step.1 准备发音文件//或者是资源文件
如:'壹.wav','贰.wav',.....'圆.wav','分.wav'Step.2 将数字转换成中文表达
如:19250.45 -->> 壹万玖千贰佰伍拾圆零肆角伍分Step.3 循环播放文件即可
//参考代码
uses mmSystem;
//...
var
S: WideString;
begin
S := '壹万玖千贰佰伍拾圆零肆角伍分';
for I := 1 to Length(S) do
sndPlaySound(PChar(S[I] + '.wav'), SND_ASYNC);
end;
如:'壹.wav','贰.wav',.....'圆.wav','分.wav'Step.2 将数字转换成中文表达
如:19250.45 -->> 壹万玖千贰佰伍拾圆零肆角伍分Step.3 循环播放文件即可
//参考代码
uses mmSystem;
//...
var
S: WideString;
begin
S := '壹万玖千贰佰伍拾圆零肆角伍分';
for I := 1 to Length(S) do
sndPlaySound(PChar(S[I] + '.wav'), SND_ASYNC);
end;
解决方案 »
- 更改DPI后界面会乱掉要如何解决
- CSDN打开怎么有乱码啊.而且一个页面内有的是正常的有的是乱码.
- 大家帮忙看看,function TObject.GetInterface(const IID: TGUID; out Obj): Boolean;中的out obj怎么解释?(在线)
- 救助delphi例程中调用SQL数据库出错!
- 特定排序问题
- 用delphi删除access数据库(.mdb)中一条纪录后,如何重新为自动编号的字段排号
- ----请问Delphi如何与MySQL结合使用?----
- 哪里可以下载 TCP/IP 调试助手?
- 有什么方法能快速将查询到的数据库中的一段记录插入另一库表中
- 对不起,各位高手想问一个问题???望解答
- StringGrid控件,如何按CTRL键行多选(不连续的行),将其设成选中状态
- 我终于做出来了。这段程序使用了shell_notifyicon的新特性,可以在TrayIcon上显示出Balloon Tips。(需IE5或以上支持)
http://www.ccw.com.cn/htm/app/aprog/01_4_20_5.asp
那个zswang(伴水)(* 嘻嘻 *) 的方法早老掉牙了