例如button1是开始计时，eidt1显示计时。点击button1就以秒为单位在edit1显示经过的时间
另外还要倒计时，例如倒计时60秒，同样点击button1就以秒为单位在edit1显示
要怎么做？

设置 timer 的enable属性 true启动 false停止
建议加个布尔型变量 做标识
按钮点击 事件 中 用 not把这个 布尔型变量变量 逻辑取反.......
这个逻辑变量的值 去 赋给 enable属性
................
var
Form1: TForm1;
status1: Boolean;
status2: Boolean;
i: Integer;
j: Integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
status1 := False;
status2 := False;
Timer1.Enabled := False;
Timer2.Enabled := False;
i := 0;
j := 60;
Button1.Caption := '正计时启动';
Button2.Caption := '倒计时启动';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
status1 := not status1;
Timer1.Enabled := status1;
if status1 then
Button1.Caption := '正计时停止'
else
Button1.Caption := '正计时启动';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(i);
Edit1.Text := IntToStr(i);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
status2 := not status2;
Timer2.Enabled := status2;
if status2 then
Button2.Caption := '倒计时停止'
else
Button2.Caption := '倒计时启动';
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Dec(j);
Edit2.Text := IntToStr(j);
end; end.

@veket的小号
谢谢！
Inc(i);
Dec(j);
这两个是什么意思？

procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption = '单击开始倒计时' then
begin
Button1.Caption := '单击结束倒计时';
Timer1.Enabled := True;
end
else
begin
Button1.Caption := '单击开始倒计时';
Timer1.Enabled:= False;
end;
end; procedure TForm1.Button2Click(Sender: TObject);
begin
if Button2.Caption = '单击正计时开始' then
begin
Button2.Caption := '单击正计时结束';
Timer2.Enabled:= True;
end
else
begin
Button2.Caption:= '单击正计时开始';
Timer2.Enabled:= False;
end;
end; procedure TForm1.Timer1Timer(Sender: TObject);
var
a : Integer;
begin
a := StrToInt(Edit1.Text);
Edit1.Text := IntToStr(a - 1);
if Edit1.Text = '0' then
begin
Timer1.Enabled:= False;
Button1.Caption:= '单击开始倒计时';
end;
end; procedure TForm1.Timer2Timer(Sender: TObject);
var
b : Integer;
begin
b := StrToInt(Edit2.Text);
Edit2.Text := IntToStr(b + 1); end;

加1 减1

征婚都征到这里来了~