简单的delhpi问题

来源：百度知道 编辑：UC知道 时间：2024/05/19 09:30:47
procedure TForm1.Button1Click(Sender: TObject);
i:integer; //保存单次数
begin
i:=0;
if *********** then
timer1.Enabled :=true ;
button1.Caption :='停止';
else
timer1.Enabled :=false;
button1.Caption :='开始';
end;

奇次数单是'停止'
偶次单击是'开始'
请问代码能不能按上面的写~~
如果能,*****处应是什麽语句,
如果不行,应该怎麽写?

请高手指点~!
我是delphi新手中的新手~!

定义一个全局变量，在程序运行时赋初值为0.
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
if i mod 2 =1 then
Button1.Caption:='开始'
else
Button1.Caption:='停止';
ShowMessage(inttostr(i));//你可以看下你是第几次单击button1.
end;

如果你只是想通过每单击一次button1，来改变timer1的enabled属性的话，你可以这样写：
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:= not timer1.Enabled;
end;