Таймер

[kort95]

Подскажите пожалуйста, почему у меня таймер отсчитывает 5 секунд при интервале 1000, хотя должен это делать при интервале 5000?

[FaTaL]

быть такого не может. Покажите код.

[Stilet]

Я тоже с похожим сталкивался, когда основной поток, что ловит таймер замораживался какой-то задачей долгой. Было принято решение избавиться от таймера.

[Rockot]

Проверь код, тот что выполняет таймер и наконец покажи его, а лучше пройдись поиском по коду с name-ом этого таймера, может ты случайно в каком-то из обработчиков событий меняешь интервал.

[kort95]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,j,y,a,tint,b:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
y:=5;
tint:=5;
If y<>0 then Timer1.Enabled:= True else  Timer1.Enabled:= False;
If y<>0 then Timer2.Enabled:= True else  Timer2.Enabled:= False;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
dec(y);
If y=0 then Timer2.Enabled:= False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
tint:=tint+10;
Timer1.Interval :=tint;
randomize;
i:=random(100);
Label2.Caption:=inttostr(i);
If y=1 then  Timer1.Interval:=700;
if y=0 then Timer1.Enabled:= False;

end;

end.

Второй таймер отсчитывает при 1000, ничего не задается в коде в принципе.

[ReportCube]

Каким образом в этом коде отслеживаете интервал срабатывания таймера?

[kort95]

Ну интервал задан в инспекторе объектов и работает по переменной "у"

[ReportCube]

Да нехай работает. Результаты где показываете, где видите интервал срабатывания таймера?

[kort95]

а, удалил, ну короче в процедуре второго таймера просто вывод на лейбл переменной y

[ReportCube]

И какое отношение вывод Label значения переменной Y имеет к интервалу таймера? Каким образом узнали, что событие таймера с интервалом в 1000 срабатывает через 5 секунд?