本人菜鸟一只,望各位高手,前辈写一个关于计数器的代码!
比如,我点击button开始计时,当再次点击button时停止计时,并且将此期间的所用时间返回到edit1里
比如,我点击button开始计时,当再次点击button时停止计时,并且将此期间的所用时间返回到edit1里
解决方案 »
- ReportBuilder 帮助文件或是说明什么的。
- 用clientDataset通过soapconnection连接数据集,打开取数据没有问题,为什么关闭得时候会报错
- 串口和端口的通信,用那种方式较好?欢迎高手来指点一下
- 关于Excel的工作表复制问题:一个workbook中只有一个工作表a.....
- 各位高手,有几个问题求救(急啊)
- 执行存储过程错误(1000分)
- 怎样把当前的窗体卸载掉?在线等!!!!!!!
- delphi数据库表的约束问题
- 同样的程序,在delphi5中出错,delphi6中可以运行,问题在哪呢?
- Delphi和数据库程序员的年薪应该是多少?
- ★★★急急急……关于EPSON LQ-1600自定义纸张问题,希望各位帮忙,谢谢!!!
- Form的调用问题
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
i:integer;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin
if not timer1.Enabled then
begin
i := 0;
timer1.Enabled := true;
end
else
begin
edit1.Text := inttostr(i);
timer1.Enabled :=false;
end;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
i := i+1;
end;end.