Как обратиться к элементу с динамичным именем??

[Xaker_Two]

Привет. У меня есть небольшой вопрос к вам, товарищи программисты: у меня элемент таймер в силу обстоятельств имеет динамичное имя! а как к нему обратиться?? вот обрезок кода(этого вполне достаточно!)

 c:=c+1;
 Tmr:= TTimer.Create(Form1);
 Tmr.OnTimer := Timer3.OnTimer;
 Tmr.Interval := 1;
 Tmr.Name:='Timr'+IntToStr(c);
 Tmr.Interval := 0;
 ?????.Enabled := True;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
 c:=0;
 end;

что надо написать на месте знаков вопросов чтобы обратиться к таймеру который только что создал?( Tmr.Name:='Timr'+IntToStr(c); )

[Abstraction]

Ы? Вы же обращаетесь не по полю "имя" объекта, а по имени переменной. Которое, естественно, не изменилось - Tmr.

[Xaker_Two]

нет мне по имени Tmr обращаться не нужно т.к. прошлый таймер созданый при неких условиях встанет яж специально имя объекта изменил с Tmr на Timr+c которая меняет свое значения с каждым событием!

[Abstraction]

нет мне по имени Tmr обращаться не нужно т.к. прошлый таймер созданый при неких условиях встанет яж специально имя объекта изменил с Tmr на Timr+c которая меняет свое значения с каждым событием!

То есть, Вы считаете, что

 Tmr.Interval := 0;

устанавливает свойство Interval для некоторого "прошлого" таймера? Если да, то у меня для Вас плохие новости: Вы не понимаете разницы между объектом и именем переменной.

 Tmr:= TTimer.Create(Form1);

Этот код создаёт новый таймер и "связывает" (скажем пока так) переменную Tmr с этим новосозданным объектом.

[Xaker_Two]

Сообщение от Abstraction

Ы? Вы же обращаетесь не по полю "имя" объекта, а по имени переменной..

Хорошо. а как обратиться по имени объекта?? ведь именно это мне и надо

Сообщение от Abstraction

Вы не понимаете разницы между объектом и именем переменной.

Я не считаю что Tmr.Interval := 0; я присваиваю старому таймеру! я знаю что я это делаю с одним и тем же таймером мне просто нужна "таймерная болванка" которую потом я смог бы переименовать и оперировать с ней как с другим объектом, но не могу добиться этого! я не понимаю как обратиться к таймеру по имени 'Tmr'+IntToStr(c)!!! если я правильно понимаю(в чем я не очень уверен) это уже другой таймер который не будет стопаться при создании нового! или мне лучше действовать через массив таймеров?? Тогда такойже вопрос как обратиться к таймеру из массива? Ведь у него есть индекс(а если их будет 500?)!

[ReportCube]

Зачем? Есть две команды SetTimer() и KillTimer(), один обработчик в окне
procedure WMTimer(var Msg: TWMTimer); message WM_TIMER;
Делайте таймеров сколь угодно много и работайте

[Xaker_Two]

А если поподробней... как с этим работать можете разъяснить или ссылку дать!

Сообщение от ReportCube

Делайте таймеров сколь угодно много и работайте

у меня имена(идентификаторы) должны задаваться от переменной С, и даже если я это сделаю то как мне к таймеру то обращаться??

[ReportCube]

Во-первых, справка - всегда поможет.
Во-вторых - есть исходники, смотрите в модуле Grig указанный мной метод, там всё есть
Все создаваемые и убиваемые таймеры имеют номер, который вы им укажите. Вот от этих номеров и "танцуйте".

[Xaker_Two]

Все спс до меня доперло ели чо напишу проблему!

Слушай а не можешь подсказать синтаксис SetTimer, ReportCube? А то смотрю в инете нихрена не понимаю! Или дай ссылку где по человечески объясняется и приведён пример!!! или сам напиши образец с разъяснениями плиз...

[ReportCube]

SetTimer(Handle, 13, 2000, nil); Создали таймер № 13 с интервалом 2000
KillTimer(Handle, 13); Убили таймер № 13
SetTimer(Handle, 13, 12000, nil); Создали таймер № 13 с интервалом 12000
KillTimer(Handle, 13); Убили таймер № 13
В обработчике
if Msg.TimerID = 13 then begin
// Обычно убиваю таймер
// Делаем что-то.
// на выходе создаю таймер, если нужен
end;