问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

delphi 读数字为语音?

发布网友 发布时间：2022-05-01 10:18

我来回答

共2个回答

热心网友 时间：2023-10-08 21:35

这是Format（）函数中的格式字符串，用来规定后面的参数（即：中括号中的tableName,deffield）以什么样的形式输出。

看一看Format()函数的使用就知道了：
Delphi的Format函数使用
━━━━━━━━━━━━━━━━━━━━━━━━━━

Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：

首先看它的声明：
function Format(const Format: string; const Args: array of const): string; overload;

事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的，
但并不多用，所以这里只对第一个介绍：
function Format(const Format: string; const Args: array of const): string; overload;

Format参数是一个格式字符串，用于格式化Args里面的值的。Args又是什么呢，
它是一个变体数组，即它里面可以有多个参数，而且每个参数可以不同。
如以下例子：

Format('my name is %6s',['wind']);
返回后就是my name is wind

现在来看Format参数的详细情况：
Format里面可以写普通的字符串，比如'my name is',但有些格式指令字符具有特殊意义，比如"%6s"格式指令具有以下的形式：
"%" [index ":"] ["-"] [width] ["." prec] type
它是以"%"开始,而以type结束，type表示一个具体的类型。中间是用来
格式化type类型的指令字符，是可选的。

先来看看type,type可以是以下字符：
d 十制数，表示一个整型值
u 和d一样是整型值，但它是无符号的，而如果它对应的值是负的，则返回时是一个2的32次方减去这个绝对值的数,如：
Format('this is %u',[－2]);
返回的是：this is 4294967294

f 对应浮点数
e 科学表示法，对应整型数和浮点数，比如
Format('this is %e',[-2.22]);
返回的是：this is -2.22000000000000E+000,等一下再说明如果将数的精度缩小

g 这个只能对应浮点型，且它会将值中多余的数去掉,比如
Format('this is %g',[02.200]);
返回的是：this is 2.2

n 只能对应浮点型，将值转化为号码的形式。看一个例子就明白了
Format('this is %n',[4552.2176]);
返回的是this is 4,552.22

注意有两点，一是只表示到小数后两位，等一下说怎么消除这种情况, 二是，即使小数没有被截断，它也不会也像整数部分一样有逗号来分开的

m钱币类型，但关于货币类型有更好的格式化方法，这里只是简单的格式化,另外它只对应于浮点值
Format('this is %m',[9552.21]);
返回：this is ￥9,552.21

p 对应于指针类型，返回的值是指针的地址，以十六进制的形式来表示
例如：
var X:integer;
p:^integer;
begin
X:=99;
p:=@X;
Edit1.Text:=Format('this is %p',[p]);
end;
Edit1的内容是：this is 0012F548

s 对应字符串类型，不用多说了吧
x 必须是一个整形值，以十六进制的形式返回
Edit1.Text:=Format('this is %X',[15]);
返回是：this is F

类型讲述完毕，下面介绍格式化Type的指令：
[index ":"]这个要怎么表达呢，看一个例子
Format('this is %d %d',[12,13]);
其中第一个%d的索引是0，第二个%d是1，所以字符显示的时候是这样 this is 12 13

而如果你这样定义：
Format('this is %1:d %0:d',[12,13]);
那么返回的字符串就变成了this is 13 12。现在明白了吗，[index ":"] 中的index指示Args中参数显示的顺序还有一种情况，如果这样
Format('%d %d %d %0:d %d', [1, 2, 3, 4])
将返回1 2 3 1 2。

如果你想返回的是1 2 3 1 4，必须这样定：
Format('%d %d %d %0:d %3:d', [1, 2, 3, 4])

但用的时候要注意，索引不能超出Args中的个数，不然会引起异常如
Format('this is %2:d %0:d',[12,13]);
由于Args中只有12 13 两个数，所以Index只能是0或1，这里为2就错了[width] 指定将被格式化的值占的宽度，看一个例子就明白了

Format('this is %4d',[12]);
输出是：this is 12,这个是比较容易，不过如果Width的值小于参数的长度，则没有效果。
如：

Format('this is %1d',[12]);
输出是：this is 12

["-"]这个指定参数向左齐，和[width]合在一起最可以看到效果：
Format('this is %-4d,yes',[12]);
输出是：this is 12 ,yes

["." prec] 指定精度，对于浮点数效果最佳：
Format('this is %.2f',['1.1234]);
输出 this is 1.12
Format('this is %.7f',['1.1234]);
输出了 this is 1.1234000

而对于整型数，如果prec比如整型的位数小，则没有效果反之比整形值的位数大，则会在整型值的前面以0补之
Format('this is %.7d',[1234]);
输出是：this is 0001234]

对于字符型，刚好和整型值相反，如果prec比字符串型的长度大则没有效果，反之比字符串型的长度小，则会截断尾部的字符
Format('this is %.2s',['1234']);
输出是 this is 12,而上面说的这个例子：

Format('this is %e',[-2.22]);
返回的是：this is -2.22000000000000E+000,怎么去掉多余的0呢，这个就行啦

Format('this is %.2e',[-2.22]);

好了，第一个总算讲完了，应该对他的应用很熟悉了吧

///////////////////////////////////////////////////////////////
二 FormatDateTime的用法
他的声明为：

function FormatDateTime(const Format: string; DateTime: TDateTime): string;
overload;

当然和Format一样还有一种，但这里只介绍常用的第一种,Format参数是一个格式化字符串。DateTime是时间类型。返回值是一种格式化后的字符串,重点来看Format参数中的指令字符

c 以短时间格式显示时间，即全部是数字的表示
FormatdateTime('c',now);
输出为：2004-8-7 9:55:40

d 对应于时间中的日期，日期是一位则显示一位，两位则显示两位
FormatdateTime('d',now);
输出可能为1～31

dd 和d的意义一样，但它始终是以两位来显示的
FormatdateTime('dd',now);
输出可能为01～31

ddd 显示的是星期几
FormatdateTime('ddd',now);
输出为: 星期六

dddd 和ddd显示的是一样的。 但上面两个如果在其他国家可能不一样。ddddd 以短时间格式显示年月日
FormatdateTime('ddddd',now);
输出为：2004-8-7

dddddd 以长时间格式显示年月日
FormatdateTime('dddddd',now);
输出为：2004年8月7日

e/ee/eee/eeee 以相应的位数显示年
FormatdateTime('ee',now);
输出为：04 （表示04年）

m/mm/mmm/mmmm 表示月
FormatdateTime('m',now);
输出为：8
FormatdateTime('mm',now);
输出为 08
FormatdateTime('mmm',now);
输出为 八月
FormatdateTime('mmmm',now);
输出为 八月

和ddd/dddd 一样，在其他国家可能不同yy/yyyy 表示年
FormatdateTime('yy',now);
输出为 04
FormatdateTime('yyyy',now);
输出为 2004,

h/hh,n/nn,s/ss,z/zzz 分别表示小时，分，秒,毫秒

t 以短时间格式显示时间
FormatdateTime('t',now);
输出为 10:17

tt 以长时间格式显示时间
FormatdateTime('tt',now);
输出为10:18:46

ampm 以长时间格式显示上午还是下午
FormatdateTime('ttampm',now);
输出为：10:22:57上午

大概如此，如果要在Format中加普通的字符串，可以用双引号隔开那些特定义的字符，这样普通字符串中如果含特殊的字符就不会被显示为时间格式啦：
FormatdateTime('"today is" c',now);
输出为：today is 2004-8-7 10:26:58

时间中也可以加"-"或"\"来分开日期：
FormatdateTime('"today is" yy-mm-dd',now);
FormatdateTime('"today is" yy\mm\dd',now);
输出为： today is 04-08-07

也可以用":"来分开时间
FormatdateTime('"today is" hh:nn:ss',now);
输出为：today is 10:32:23

/////////////////////////////////////////////////////////////////
三.FormatFloat的用法

常用的声明：
function FormatFloat(const Format: string; Value: Extended): string; overload;

和上面一样Format参数为格式化指令字符，Value为Extended类型为什么是这个类型，因为它是所有浮点值中表示范围最大的，如果传入该方法的参数比如Double或者其他，则可以保存不会超出范围。

关键是看Format参数的用法
0 这个指定相应的位数的指令。
比如：
FormatFloat('000.000',22.22);
输出的就是022.220

注意一点，如果整数部分的0的个数小于Value参数中整数的位数，则没有效果如：
FormatFloat('0.00',22.22);
输出的是：22.22

但如果小数部分的0小于Value中小数的倍数，则会截去相应的小数和位数如：
FormatFloat('0.0',22.22);
输出的是：22.2

也可以在整数0中指定逗号，这个整数位数必须大于3个，才会有逗号出句
FormatFloat('0,000.0',2222.22);
输出是：2,222.2

如果这样
FormatFloat('000,0.0',2222.22);
它的输出还是：2,222.2

注意它的规律,#和0的用法一样，目前我还没有测出有什么不同。

FormatFloat('##.##',22.22);
输出是：22.00

E 科学表示法，看几个例子大概就明白了
FormatFloat('0.00E+00',2222.22);
输出是 2.22E+03
FormatFloat('0000.00E+00',2222.22);
输出是 2222.22E+00
FormatFloat('00.0E+0',2222.22);
22.2E+2
明白了吗，全靠E右边的0来支配的。

这个方法并不难，大概就是这样子了。

上面三个方法是很常用的，没有什么技巧，只要记得这些规范就行了。

总结一下Format的用法:

Format('x=%d',[12]);//'x=12'//最普通
Format('x=%3d',[12]);//'x=12'//指定宽度
Format('x=%f',[12.0]);//'x=12.00'//浮点数
Format('x=%.3f',[12.0]);//'x=12.000'//指定小数
Format('x=%8.2f'[12.0])//'x=12.00';
Format('x=%.*f',[5,12.0]);//'x=12.00000'//动态配置
Format('x=%.5d',[12]);//'x=00012'//前面补充0
Format('x=%.5x',[12]);//'x=0000C'//十六进制
Format('x=%1:d%0:d',[12,13]);//'x=1312'//使用索引
Format('x=%p',[nil]);//'x=00000000'//指针
Format('x=%1.1e',[12.0]);//'x=1.2E+001'//科学记数法
Format('x=%%',[]);//'x=%'//得到"%"
S:=Format('%s%d',[S,I]);//S:=S+StrToInt(I);//连接字符串

--------------------------------------------------------------------
Format是一个很常用方法,并且使用它可以实现众多格式的转变.因此学会使用Format是非常重要的.

首先看它的声明：
function Format(const Format: string; const Args: array of const): string; overload;
事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的，
但并不多用，所以这里只对第一个介绍：

function Format(const Format: string; const Args: array of const): string; overload;
Format参数是一个格式字符串，用于格式化Args里面的值的。Args又是什么呢，
它是一个变体数组，即它里面可以有多个参数，而且每个参数可以不同。
如以下例子：
Format('my name is %6s',['wind']);
返回后就是
my name is wind

现在来看Format参数的详细情况：
Format里面可以写普通的字符串，比如'my name is'
但有些格式指令字符具有特殊意义，比如"%6s"

格式指令具有以下的形式：
"%" [index ":"] ["-"] [width] ["." prec] type
它是以"%"开始,而以type结束，type表示一个具体的类型。中间是用来
格式化type类型的指令字符，是可选的。

先来看看type,type可以是以下字符：
d 十制数，表示一个整型值
u 和d一样是整型值，但它是无符号的，而如果它对应的值是负的，则返回时
是一个2的32次方减去这个绝对值的数
如：Format('this is %u',[－2]);
返回的是：this is 4294967294
f 对应浮点数
e 科学表示法，对应整型数和浮点数，
比如Format('this is %e',[-2.22]);
返回的是：this is -2.22000000000000E+000
等一下再说明如果将数的精度缩小
g 这个只能对应浮点型，且它会将值中多余的数去掉
比如Format('this is %g',[02.200]);
返回的是：this is 2.2
n 只能对应浮点型，将值转化为号码的形式。看一个例子就明白了
Format('this is %n',[4552.2176]);
返回的是this is 4,552.22
注意有两点，一是只表示到小数后两位，等一下说怎么消除这种情况
二是，即使小数没有被截断，它也不会也像整数部分一样有逗号来分开的
m 钱币类型，但关于货币类型有更好的格式化方法，这里只是简单的格式化
另外它只对应于浮点值
Format('this is %m',[9552.21]);
返回：this is ￥9,552.21
p 对应于指针类型，返回的值是指针的地址，以十六进制的形式来表示
例如：
var X:integer;
p:^integer;
begin
X:=99;
p:=@X;
Edit1.Text:=Format('this is %p',[p]);
end;
Edit1的内容是：this is 0012F548
s 对应字符串类型，不用多说了吧
x 必须是一个整形值，以十六进制的形式返回
Edit1.Text:=Format('this is %X',[15]);
返回是：this is F

类型讲述完毕，下面介绍格式化Type的指令：
[index ":"] 这个要怎么表达呢，看一个例子
Format('this is %d %d',[12,13]);
其中第一个%d的索引是0，第二个%d是1，所以字符显示的时候
是这样 this is 12 13

而如果你这样定义：
Format('this is %1:d %0:d',[12,13]);
那么返回的字符串就变成了
this is 13 12
现在明白了吗，[index ":"] 中的index指示Args中参数显示的
顺序

还有一种情况，如果这样Format('%d %d %d %0:d %d', [1, 2, 3, 4])
将返回1 2 3 1 2。
如果你想返回的是1 2 3 1 4，必须这样定：
Format('%d %d %d %0:d %3:d', [1, 2, 3, 4])
但用的时候要注意，索引不能超出Args中的个数，不然会引起异常
如Format('this is %2:d %0:d',[12,13]);
由于Args中只有12 13 两个数，所以Index只能是0或1，这里为2就错了
[width] 指定将被格式化的值占的宽度，看一个例子就明白了
Format('this is %4d',[12]);
输出是：this is 12
这个是比较容易，不过如果Width的值小于参数的长度，则没有效果。
如：Format('this is %1d',[12]);
输出是：this is 12
["-"] 这个指定参数向左齐，和[width]合在一起最可以看到效果：
Format('this is %-4d,yes',[12]);
输出是：this is 12 ,yes

["." prec] 指定精度，对于浮点数效果最好.

热心网友 时间：2023-10-08 21:35

//以下假设你的语音文件目录是d:\Sounds
uses MMSystem;

var
i,j :integer;
begin
try
i := StrToInt(Edit1.Text);
if i < 0 then
ShowMessage('输入的整数必须大于等于0')
else if (i >= 0) and (i < 10) then
sndPlaySound(PChar('d:\Sounds\' + IntToStr(i) + '.wav'),SND_SYNC)
else if (i >= 10) and (i < 100) then
begin
j := i div 10;
sndPlaySound(PChar('d:\Sounds\' + IntToStr(j) + '.wav'),SND_SYNC);
sndPlaySound(PChar('d:\Sounds\十.wav'),SND_SYNC);
j := i mod 10;
if j <> 0 then
sndPlaySound(PChar('d:\Sounds\' + IntToStr(j) + '.wav'),SND_SYNC);
end
else if (i >= 100) and (i < 1000) then
begin
j := i div 100;
sndPlaySound(PChar('d:\Sounds\' + IntToStr(j) + '.wav'),SND_SYNC);
sndPlaySound(PChar('d:\Sounds\百.wav'),SND_SYNC);
j := i mod 100;
if j >= 10 then
begin
j := j div 10;
sndPlaySound(PChar('d:\Sounds\' + IntToStr(j) + '.wav'),SND_SYNC);
sndPlaySound(PChar('d:\Sounds\十.wav'),SND_SYNC);
j := i mod 10;
end
else if j > 0 then
sndPlaySound(PChar('d:\Sounds\0.wav'),SND_SYNC);
if j <> 0 then
sndPlaySound(PChar('d:\Sounds\' + IntToStr(j) + '.wav'),SND_SYNC);
end
else if i >= 1000 then
ShowMessage('输入的整数必须小于等于999');
except
ShowMessage('请确定输入的是整数');
end;
end;
怎样用delphi朗读中文,微软的tts可以吗

通常的步骤如下：一、下载并安装了MSTTS和Spchapi软件包。二、将 Speech API 导入类型库至 Delphi 中。三、通过 API 代码进行语音朗读。

DELPHI怎么实现语音聊天

首先要把声卡的音频数据采集出来，这个用AudioIO组件就能实现，然后用UDP或TCP发出去，这个用Indy控件实现，接收端把数据用AudioIO组件回放出来。当然也可以进行一下数据压缩，压成MP3之类的流格式，在接收端解码。

谁知道判断TTS语音朗读是否结束

原本在网上查到的一条关于判断TTS朗读完成事件的代码WaitForSingleObject(spvoice.SpeakCompleteEvent, 200);在delphi 中使用时并没有达到原本看似应该有的功效，测试时发现这东西只是在TTS合成朗读流后就返回了，说白了就是TTS刚要朗读，就被判定成朗读完成了。仔细查找了一下spvoice的参数，里面有...

DELPHI基础教程:开发Delphi对象式数据管理功能(二)[1]

在Classes在单元中提供了InternalReadComponentRes函数 该函数使用了TResourceStream对象从Delphi应用程序中读取部件 Delphi是将窗体和部件信息放在模块资源的RCDATA段的 TBlobStream对象 从Delphi 数据库开发平台这个意义上说 TBlobStream 对象是个很重要的对象 TBlobStream对象提供了修改TBlobField TBytesField或TVarBy...

如何实现英文语音发音系统DELPHI

ref to VIA VOICE SDK.

应用Microsoft TTS 语音引擎的 Delphi 语言实例

VoTxt：=CoVTxtAuto_.Create;VoTxt.Register(′′,′Speech Test′);{注册} “Read”按钮代码为：VoTxt.Speak(Memo1.Lines.Text,10);{朗读} “Stop”按钮代码为：VoTxt.StopSpeaking; {停止朗读} 至此，应用程序已具有朗读功能，10表示使用普通语气。借住VoTxt的属性和方法，我们还可以控制阅读...

文件都有哪些格式?

AU Sun/NeXT/DEC/UNIX声音文件;音频U-Law(读作“mu-law”)文件格式 AVB Computer Associates Inoculan反病毒软件的病毒感染后文件 AVI Microsoft Audio Video Interleave电影格式 AVR Audio Visual Research文件格式 AVS 应用程序可视化格式 AWD FaxVien文档 AWR Telsis数字储存音频文件扩展名格式 Axx ARJ压缩文件的...

计算机多媒体技术有什么要求

言词应当生动、朴实,力求简练,语音吐字清晰。解说词每秒不应超过三个字。2.6 多媒体课件的导航设计一、 迷路 学习者在使用多媒体课件时,找不到相应的节点,称之为迷路。常见的迷路有:全局性迷路、局部性迷路、历史性迷路。二、 导航设计为避免学习者在多媒体课件中漫游时出现迷路现象,在设计多媒体课件时必须进行有...

语言包括什么?

语言是人类的创造,只有人类有真正的语言。许多动物也能够发出声音来表示自己的感情或者在群体中传递信息但是这都只是一些固定的程式, 不能随机变化。只有人类才会把无意义的语音按照各种方式组合起来，成为有意义的语素，再把为数众多的语素按照各种方式组合成话语，用无穷变化的形式来表示变化无穷的意义。人类...

谁能给我一个详细的文件扩展名大全!

DOS环境下的文件名 在DOS下,文件名采用8+3结构,即:最长8位的文件名,由小数点分隔后再跟上最长3位的后缀名,如:READ.ME、SETUP.EXE,一般情况下文件名不允许使用汉字,只能由字母、数字和一些符号组成。如READ.ME用中文理解就是“读我”,即提示用户在使用软件前先看看这个文件的内容,以获取更多的提示信息。而更...

delphi 判断数字必须是整数 delphi截取字符串函数 delphi读音 Delphi 计算数字的文本宽度 delphi读word一行内容 delphi截取字符串 delphi字符截取 delphi截取字符串算法 delphi判断数据是否一样
声明声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com
如何用易语言实现QQ登录器的QQ号空了就出现“QQ号为空,请输入QQ号... 介绍几首最新的网络歌手唱得网络红歌呗。。谢谢啊 求推荐几首好听的歌,要和徐良风格差不多的 ...男女合唱的】最好多推荐几首,试到一首好听的 有什么蛮好听的新歌吗?网络歌手、非主流的,像汪苏泷、徐良、阿悄他们的... 关于Guitar Rig 4的两个问题,求解答。。。 右脚跟疼是什么原因引起的 男人右脚后跟筋疼的原因 右脚跟痛 我右脚跟腱痛怎么治呀,两个多月前崴了一下,找人捏了几次,但现在跟腱一... 关于数字转换成语音工具免费的哪里有、 刚购买的理财产品撤销了怎么收费 手机之间通话的原理 办理了招商银行的理财业务 如果想取消怎么办 招商银行理财产品认购后撤单有费用吗? excel中如何让文本到语音功能进行语音朗读数字&quot;123&quot;时读&quot;一二三&quot;而不是读&quot;一百二十三&quot;？不胜感谢 我买了不到一天的理财产品,第二天可以撤回吗 笔记本电脑输入数字时候能怎么能发出语音提示? 有没有可以将文字转换成声音的语音系统,有的话,哪个最好? 哪种应用可以文字转换成语音??? 数字转换中文语音 asp数字语音播报是怎么实现的? 有什么好的项目开小厂子 需要一款文字,数字转语音软件 手机下载哪种软件能扫描数字转换一成语音 中华少年朗诵时可以做什么动作?急啊! 中华少年该如何朗诵 求助、急啊~~中华少年朗诵指导 谁能帮忙做一个关于《少年中国说》的PPT ?朗诵比赛做背景用 《中华少年》的ppt。急需。。。 招商银行的理财产品购买以后第二天可以取消交易吗 怎样把plc输出的信号转换成规定语音 一澄几许是什么意思? 一橙是什么意思 澄泥砚的“澄”,该读什么音? 一番风静一番澄的意思? 澄是象形字吗? 荣事达滚筒洗衣机WF81010BSOR洗衣粉放第几个盒 滚桶洗衣机洗衣液倒哪个里面 荣事达rb5006s洗衣机在哪里加洗衣粉 莲菜盒子的做法步骤图,莲菜盒子怎么做好吃 莲菜盒子怎么做如何做好吃 莲花菜合子怎么做 猪肉莲菜盒子怎么做 莲藕盒子用什么步骤做? 莲藕盒子的做法,莲藕盒子怎么做好吃,莲藕盒子的家常 炸莲菜盒子用什么牌子的淀粉? 莲藕的8种做法分别是? 莲菜怎么做才又白又亮 豌豆公主有什么日本品牌呀?
懂视 51dongshi.com 版权所有
Copyright © 2019-2024