怎樣做個倒數器? |
尚未結案
|
tommylitang
一般會員 發表:12 回覆:0 積分:2 註冊:2004-12-12 發送簡訊給我 |
|
elvis1000
一般會員 發表:6 回覆:50 積分:16 註冊:2004-12-18 發送簡訊給我 |
是指倒數嗎? x: 倒數開始的號碼
t: 每次間格的時間 (ms)
Ex: GoBack(10,500);
procedure GoBack(x, t: integer); var i,k:integer; begin k:=x; repeat ShowMessage(IntToStr(k)); sleep(t); k:=k-1; until k=0; end;----------------------- God bless you! I am Dark_Angel.
------
----------------------- God bless you! I am Dark_Angel. |
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
插个花
tommylitang 您好:
不明白您是想怎么倒数,小弟做了一个实例,不知是不是您所要的
首先拉一个Edit1,Timer1,Button1在Form1中,将Timer1的Enabled初始为false,然后键入如下代码:
procedure TForm1.Button1Click(Sender: TObject); begin timer1.Enabled:=true; end; procedure TForm1.Timer1Timer(Sender: TObject); begin edit1.text:=inttostr(strtoint(edit1.text)-1); end; 运行,即可看到edit1中所输入的数字在倒数,试试看——行径窄处,留一步与人行—— |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |