怎樣做個倒數器? |
|
尚未結案
|
|
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中所输入的数字在倒数，试试看 |
發表時間：2004-12-19 17:29:54
IP:219.78.xxx.xxx 未訂閱
系統時間：2024-05-03 12:17:46
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |