声音如何插入(100分)

宝

宝宝龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-07

• #1

我想在edit内输入分数,但由于大量输入,我想在每输入一个数字时就用语音提示一下报出刚才输入的数字,(关于数字的音乐我有),但就是不知道怎样加入到程序中去

还有怎样判断输入的是数字并且不大于100.

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-07

• #2

使用这个事件，
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin

case key of

'1': 读1;
'2': 读2;
...
end;

end;

 

宝

宝宝龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-08

• #3

懂了一半了,但还有就是你说的 '1': 读1;
所谓的"读1",我不知道用什么程序去写,比如我的音乐文件放在c:/sound/1.wma
我该怎么去写程序
谢谢~

 

G

gxw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-08

• #4

试试：
uses mmsystem;
........
//播放
if fileexists('c:/sound/1.wma') then
playsound(''c:/sound/1.wma'',0,SND_ASYNC);


没试过wma格式，若是wav肯定可以[]

 

宝

宝宝龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-08

• #5

谢谢!解决了