用delphi实现的秒表程序源码.txt

来自「用delphi实现的秒表功能」· 文本 代码 · 共 78 行

控件 button1 开始计时按钮 
button2 置零按钮 
edit1 和timer1结合，显示从比赛开始到现在的时间，时刻变化 
timer1 用来计时，interval=10 
memo1 用来存储每个人的时间的记录 

unit Unit1; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, ExtCtrls, StdCtrls; 

type 
TForm1 = class(TForm) 
Memo1: TMemo; 
Button1: TButton; 
Edit1: TEdit; 
Button2: TButton; 
Timer1: TTimer; 
procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure FormShow(Sender: TObject); 
procedure Timer1Timer(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 

var 
Form1: TForm1; 
i:integer; 
time:tdatetime; 
s:string; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject);//计时开始按钮 
begin 
if i=0 then 
begin 
i:=1; 
time:=now; 
s:='00:00:00 000'; 
timer1.Enabled :=true; 
exit; 
end; 
s:= FormatDateTime('hh:nn:ss:zzz',now-time); 
memo1.Lines.Add(s); 

end; 

procedure TForm1.Button2Click(Sender: TObject); //置零按钮 
begin 
timer1.Enabled :=false; 
s:='00:00:00 000'; 
memo1.Clear; 
edit1.text:='00:00:00 000'; 
i:=0;//判断是否是开始计时的标志 i=1 是在计时，i=0 没有开始计时 
end; 

procedure TForm1.FormShow(Sender: TObject); 
begin 
i:=0; 
edit1.text:='00:00:00 000'; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
edit1.Text:=FormatDateTime('hh:nn:ss:zzz',now-time); 
end; 

end.