关于一个计时计分器的问题

Question

一个label控件与一个Timer控件关联用来显示时间,格式:hh:mm:ss
现在想当时间到10分钟时,每超过1分钟就将另一文本框中的数字+1,如何做

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  AStart := Now();    //记录开始时间
  Label1.Caption := '00:00:00';
  Label2.Caption := '0';
  Timer1.Interval := 1000;
  Timer1.Enabled := True;
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
  ATime : TDateTime;
begin
  ATime := Now - AStart;    //计算开始之后经过的时间
  Label1.Caption := FormatDateTime('HH:NN:SS', ATime);
  if (FormatDateTime('NN', ATime) > '10') and (FormatDateTime('SS', ATime) = '00') then
  begin
    //在11:00、12:00、13:00、……时刻，Label2中的数值增加1
    Label2.Caption := IntToStr(StrToInt(Label2.Caption) + 1);
  end;
end;