delphi timer 倒计时 - Delphi / 数据库相关
我做了一个答题程序，想在答题页面一出现的时候开始倒计时60秒，时间到的时候发出蜂鸣，提示时间到，不用蜂鸣，用提示框也可以，代码怎样写，蜂鸣函数是什么，谢谢
先定一个变量 比如 i ：= 60；
timer设置为1秒，然后执行timer事件，每次 i:=i-1;当i=0时即到时
用Timer吧，直接倒计时。
蜂鸣，可以直接用Beep（）
Beep（）函数就"嗒"一声就没了，有没有声音多些的
那就要自己写程序了。
或者去网上找找相关程序，有不少。
对了，或者用PlaySound来实现。
uses mmSystem;
PlaySound(PChar(S_Name),0,SND_FILENAME or SND_ASYNC);
S_Name是什么呢
你我如果想要这样格式的倒计时，怎么写？
00：00：60
想要倒计时一分三十秒的时候，这样写怎么倒计时
00：01：30
倒计时二楼说的就是。
S_Name是你自己需要的声音文件名，包括扩展名在内，比如 S1.wav
相关问答：
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
//DLL 放在EXE中没问题
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
skf:TbsBusinessSkinForm;
nskfrm:TForm;
begin
frmUUMain:=skfrm;
skf:=TbsBus ......
delphi 數據類型 定義A~Z 為有序型，A為最小，Z最大。
Delphi(Pascal) code:
var
arr:array ['A'..'Z'] of Char;
用集合搞定
怎麼去運算呢？inc() ......
