如何判斷使用者輸入資料所用的時間 |
答題得分者是:change.jian
|
will
中階會員 發表:176 回覆:135 積分:62 註冊:2002-04-14 發送簡訊給我 |
|
change.jian
版主 發表:29 回覆:620 積分:439 註冊:2003-06-02 發送簡訊給我 |
will,您好:
程式碼如下:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); private FCalStart:Boolean; //是否在計時中 FStartTime:TTimeStamp; //儲存第一個鍵按下的時間 FEndTime:TTimeStamp; //儲存Enter鍵按下的時間 public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var iT:Integer; begin if FCalStart then begin //計時中,所以查看user是否按下Enter鍵 if (Key = 13) then begin FEndTime:=DateTimeToTimeStamp(now); FCalStart:=False; iT:=FendTime.Time - FStartTime.Time; Label1.Caption:='所花時間: ' IntToStr(it) ' ms'; end; end else begin //沒有計時,所以啟動計時狀態,儲存現在時間 FStartTime:=DateTimeToTimeStamp(now); FCalStart:=True; end; end; end. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |