下面的function 有甚麼作用? |
|
尚未結案
|
|
chrislao
初階會員   發表：86 回覆：69 積分：36 註冊：2002-12-28 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
P.D.
版主  發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
引言: 下面的function 有甚麼作用? function TForm1.GetTickCount: Cardinal; begin Result := Windows.GetTickCount; end;給你一個範例程式, 應用在Timer上
// 進入Timer啟動後, 每n秒
procedure TForm_Check.Timer1Timer(Sender: TObject);
var bTime: longInt;
eTime: longInt;
ntime: integer;
begin
bTime:= GetTickCount;
eTime:= GetTickCount;
Timer1.Enabled:= False;
while eTime - bTime < ntime do begin
Application.ProcessMessages;
.... 執行要做的事情
eTime:= GetTickCount;
end;
Timer1.Enabled:= True;
end; getTickCount 是以 1/1000秒值計算, 所以要3秒的話, ntime:= 3000
|
發表時間：2004-01-11 02:27:50
IP:202.175.xxx.xxx 未訂閱
系統時間：2024-05-02 23:05:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |