用Delphi实现的秒表程序源代码

按钮2零按钮

Edit1和timer1组合在一起显示游戏开始到现在的时间，这个时间是随时间变化的。

定时器1用于计时，间隔=10。

Memo1用来存储每个人的时间记录。

单位unit 1；

连接

使用

窗口、消息、系统、变量、类、图形、控件、表单，

对话框、扩展控件、标准控件。

类型

TForm1 = class(TForm)

memo 1:TM emo；

button 1:TButton；

edit 1:TEdit；

button 2:t button；

timer 1:TTimer；

程序按钮1Click(发件人:to object)；

过程按钮2Click(发送方:to object)；

程序表单显示(发送方:to object)；

过程定时器1定时器(发送方:to object)；

私人的

{私人声明}

公众的

{公开声明}

结束；

定义变量

form 1:t form 1；

I:整数；

时间:tdatetime

s:字符串；

履行

{$R *。dfm}

程序TForm1。Button1Click(发件人:to object)；//计时开始按钮

开始

如果i=0，那么

开始

I:= 1；

时间:=现在；

s:= ' 00:00:00 000 '；

定时器1。enabled:= true；

退出；

结束；

s:= format datetime(' hh:nn:ss:zzz '，now-time)；

memo1。行。添加；

结束；

程序TForm1。Button2Click(发送方:to object)；//零按钮

开始

定时器1。enabled:= false；

s:= ' 00:00:00 000 '；

memo1。清晰；

edit 1 . text:= ' 00:00:00 000 '；

I:= 0；//用于判断定时器是否启动的标志i=1为timer，i=0不启动timer。

结束；

程序TForm1。FormShow(发件人:to object)；

开始

I:= 0；

edit 1 . text:= ' 00:00:00 000 '；

结束；

程序TForm1。Timer1Timer(发送方:to object)；

开始

edit1。text:= format datetime(' hh:nn:ss:zzz '，now-time)；

结束；

结束。

测试通过了，秒表的作用也是一样的！