Question

用delphi做一个计时软件

想做图上那样的计时器 自己写的不行var
Form1: TForm1;

implementation

{$R *.dfm}
var
i:integer;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
i:=0;
edit1.Text:=inttostrt(i+1) ;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
edit1.Text:=i+1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
button2.Enabled:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text;clear;
end;

end.

Answer 1

button1.Enabled:=true;
button2.Enabled:=false;
你写错了，应该是
Timer1.Enabled:=true;
Timer1.Enabled:=false;

Timer1中有个属性为Interval，他是以毫秒为单位，比如说默认为1000，则是当Timer1.Enabled:=true;的时候每1000毫秒执行一次TForm1.Timer1Timer事件中的语句，
你把i:=0放到TForm1.Timer1Timer事件中会导致每次执行都把i清零；了，应该吧i:=0放到
Button1Click事件中。。。

追问

不太明白... 后面这段 能不能给详细讲讲 谢谢

追答

就是说
当按钮1按下，程序执行按钮1的中的代码（TForm1.Button1Click）
Timer1.Enabled:=true; //使time1开始执行
i:=0;
timer1在Timer1.Enabled:=true; 时自动开始执行，执行的是TForm1.Timer1Timer事件中的代
在这里执行语句
i:=i+1;
edit1.text:=inttostr(i); //inttostr()是把整形变成字符型的函数

当按钮2按下，程序执行按钮2的中的代码（TForm1.Button2Click）
timer1.enable:=false; //使timer1停止执行。

Answer 2

var
Form1: TForm1;

s:integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);--------开始按钮
begin

if (s>0) then
begin
s:=strtoint(edit1.Text);
end
else
begin
s:=0 ;
end
Timer1.Enabled:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);---------暂停按钮
begin
Timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
s:=s+1;
edit1.Text:=inttostr(s) ;
end;

end.

追问

你写的也有很多错 我调试不了

追答

我测试过的可以的啊，我用的是delphi5

追问

我用DELPHI7 现实有错