timer

[Erick Cartman]

салют вам!
Пишу тест. поставил таймер на него. А проблема в том, что када тест завершен, выхожу, потом заново захожу, таймер продолжает время. Мне надо чтобы таймер начинал отчет с 0 каждый раз када заходиш! Заранее СпС!

[Kotofff]

поставил таймер на него

Как поставил ? Код покажи.

[Deamonig]

если вы выходите полностью из программы, т.е. закрываете ее, то по любому таймер должен работать, как вы выразились, с нуля. Если вы после завершения теста нажимаете какую то там у вас кнопочку "Повторить тест" , то нужно обнулить переменную в которой вы считали время теста.

[Erick Cartman]

var min: integer; sec: integer;
procedure TForm12.Timer1Timer(Sender: TObject);
begin
  sec := sec + 1;
  if sec = 60 then
    begin
      min := min + 1;
      sec := 0;
    end;
  if sec < 10 then
    Label7.Caption := '0' + IntToStr(sec)
  else
    Label7.Caption := IntToStr(sec);

  if min < 10 then
    Label6.Caption := '0' + IntToStr(min)
  else
    Label6.Caption := IntToStr(min);
    if (min = 10) and (sec = 0) then
    // заданный интервал истек
    begin
      Timer1.Enabled := False; // стоп
      showmessage('ваше время истекло!');
      form12.Close;
          form1.enabled:=true;
end;
end;

procedure TForm12.FormCreate(Sender: TObject);
begin
min:=0;
sec:=0;
end;

[Deamonig]

Ну вот вы просто закрываете форму из тестом и открываете первую форму, без обнуления времени.

    // заданный интервал истек
    begin
      Timer1.Enabled := False; // стоп
      showmessage('ваше время истекло!');
      form12.Close;
      min:=0;
      sec:=0;
      form1.enabled:=true;
end;