Динамически созданный таймер не может остановиться

[Shouldercannon]

Доброго времени суток!
Есть

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer := TTimer.Create(nil);
  Timer.Interval := 100;
  Timer.OnTimer := TimerProc;
  Timer.Enabled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to 1 do
  begin
    Button1.OnClick(Self);
  end;
end;

procedure TForm1.TimerProc(Sender: TObject);
begin
  FreeAndNil(Timer);
  Inc(Q);
  Self.Caption := IntToStr(Q);
end;

При таком раскладе постоянно отрабатывает TimerProc. Почему таймер не "умирает"?

[Stilet]

Боюсь, что освобождать объект из под его события не выйдет.
FreeAndNil у тебя скорее всего не отрабатывает, вот таймер и не уходит.
Рекомендую тебе заменить таймер на Thread внутри которой кинуть sleep() на нужный интервал. Это навскидку, не зная задачи. Могу и ошибаться.

[min@y™]

Почему таймер не "умирает"?

потому что у тебя их 2 штуки.

[ДралсяСошибками]

Наверно FreeAndNil один раз отрабатывает и крошит в мясо первый таймер, а вот второй таймер продолжает работать)) И для FreeAndNil он Nil)))

[Shouldercannon]

Вариант

  if not Assigned(Timer) then
  begin
    Timer := TTimer.Create(nil);
    Timer.Interval := 100;
    Timer.OnTimer := TimerProc;
    Timer.Enabled := True;
  end;

[Stilet]

Согласен. В цикле два таймера создаются, а убираешь ты только один.
Если бы FreeAndNil(Sender) написал, может быть и убился бы таймер твой... Хотя я сомневаюсь...

[Aliens_wolfs]

TList в нем можно сохранять адрес памяти занимаемым контролом и обращаетесь к ниму это для динамически созданных контролов. Ну и можно методрм перебора контролов Control.Count.

Легче работать с создаными контролами через статический массив контролов этот пример для простых решений, примерно так

var
Timer: [0..1] array of TTimer;

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to Length(Timer) -1 do
if Timer[i] = nil then
begin
  Timer[i]:= TTimer.Create(nil);
  Timer[i].Interval := 100;
  Timer[i].OnTimer := TimerProc;
  Timer[i].Name:= 'Timer' + Inttostr(i);
  Timer[i].Enabled := True;
end;
end;

procedure TForm1.TimerProc(Sender: TObject);
begin
if TTimer(Sender).Name = 'Timer0' then
что то сделать в событии этого Timer0
else
if TTimer(Sender).Name = 'Timer1' then
что то сделать в событии этого Timer1
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1Click(nil);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to Length(Timer) -1 do
  FreeAndNil(Timer[i]);
end;

[min@y™]

Легче работать с создаными контрооами через статический массив, примерно так

лучше, чем TObjectList или TObjectList<TTimer>, в данном случае быть не могёт.

[Aliens_wolfs]

Об этом я и упоменул TList но там нужно правильно уметь работать. Я кстати через TList и делаю. А тот пример что я выше написал без заморочек для простых решений пойдет.

А вот пример через TList примерно так

var
Timer: TTimer;
ItemList: TList;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer:= TTimer.Create(nil);
  Timer.Interval := 100;
  Timer.OnTimer := TimerProc;
  Timer.Name:= 'Timer' + Inttostr(i);
  Timer.Enabled := True;
  ItemList.Add(Timer);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
ItemList:= TList.Create;
for i:= 0 to 1 do
Button1Click(nil);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin
for i:= ItemList.count-1  downto 0 do
if TTimer(ItemList[i]) <> nil then
begin
  FreeAndNil(TTimer(ItemList[i]));
  ItemList.Delete(i);
end;
end;

[min@y™]

Я кстати через TList и делаю.

не надо так.

А этот пример что я написал без заморочек для простых решений пойдет.

а так - тем более!