Создание динамического таймера

@Genius_1981 · Регистрация: 03.03.2019

Подскажитье пожалуйсиа, как создать динамический таймер. Создал таймер, но OnTimerу не работает. И ещё с конструктором и деструктором.

Delphi

Procedure vaqt1;
var
vaq:array [1..100] of TTimer;
Sg1:TStringgrid;
begin
satr:=Sg1.row;
satr:=sg1.Row ;
vaq[satr]:=TTimer.Create(Form1);
vaq[satr].Interval:=1000;
vaq[satr].Enabled:=true;
vaq[satr].OnTimer:=Form2.chastimer;
end;

@northener · 30.04.2019, 02:43

А что тут вообще может работать?
У вас массив таймеров - локальная переменная простой процедуры vaqt1
Нигде, кроме этой процедуры этот массив не валиден.

@Nanotentacle · 30.04.2019, 06:38

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

А что тут вообще может работать?
У вас массив таймеров - локальная переменная простой процедуры vaqt1
Нигде, кроме этой процедуры этот массив не валиден.

Не совсем соглашусь. После создания таймера он будет работать, пока не будет уничтожена Form1. То, что массив локальный, не должно повлиять на работоспособность. Да, это неправильно и косячно, согласен, и сам смысл такого массива стремится к нулю, так как можно делать вот так

Delphi

Procedure vaqt1;
var
vaq:array [1..100] of TTimer;
Sg1:TStringgrid;
begin
satr:=Sg1.row;
satr:=sg1.Row ;
with TTimer.Create(Form1) do
 begin
 Interval:=1000;
 Enabled:=true; 
 OnTimer:=Form2.chastimer;
 end;
end;

Куда как более интересным является вопрос как отрабатывает код

Delphi

1	satr:=Sg1.row;

SG1 никак не создан, судя по тому, что я вижу. Разве что у него есть такой же компонент на форме...

Ну и остается вопрос что находится внутри процедуры Form2.chastimer

@qwertehok · 30.04.2019, 08:19

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

Ну и остается вопрос

зачем нужно 100 таймеров

@Nanotentacle · 30.04.2019, 08:43

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

зачем нужно 100 таймеров

Что-то мне подсказывает, что это банальный костыль. Таблица SG1, вероятнее всего, содержит сто строк (или гарантированно меньше ста строк). Таймер что-то должен делать с выбранной строкой. Подозреваю, что в процедуре обработки также объявлен массив из ста таймеров и каким-то образом автор пытается работать с этим массивом. Но это так, на правах штатной Ванги...

@northener пофигист широкого профиля 4500 / 2976 / 842 Регистрация: 15.07.2013 Сообщений: 17,173
	30.04.2019, 02:43	2
	А что тут вообще может работать? У вас массив таймеров - локальная переменная простой процедуры vaqt1 Нигде, кроме этой процедуры этот массив не валиден. 0

@qwertehok 4147 / 3529 / 912 Регистрация: 29.08.2013 Сообщений: 22,844 Записей в блоге: 2
	30.04.2019, 08:19	4
	Сообщение от Nanotentacle Ну и остается вопрос зачем нужно 100 таймеров 0

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	30.04.2019, 08:43	5
	Сообщение от qwertehok зачем нужно 100 таймеров Что-то мне подсказывает, что это банальный костыль. Таблица SG1, вероятнее всего, содержит сто строк (или гарантированно меньше ста строк). Таймер что-то должен делать с выбранной строкой. Подозреваю, что в процедуре обработки также объявлен массив из ста таймеров и каким-то образом автор пытается работать с этим массивом. Но это так, на правах штатной Ванги... 0

Опции темы