Цитата:
Сообщение от fusic
Есть вариант через FindComponent. Может быть есть более правильный вариант ?
|
-Массиву присвоить указатели на существующие таймеры:
Код:
TForm1=class(TForm)
...
public
timers: array[0..5] of Timer;
end;
...
procedure TForm1.OnCreate(Sender: TObject);
begin
...
timers[0] := T0;
...
timers[5] := T5;
end;
...
-Динамическое создание массива таймеров:
Код:
TForm1=class(TForm)
...
public
timers: array[0..5] of Timer;
end;
...
procedure TForm1.OnCreate(Sender: TObject);
var
i: Integer;
begin
...
for i := 0 to 5 do
begin
timers[i] := TTimer.Create(Self);
with timers[i] do
begin
Interval := ...;
OnTimer := SomeTimerProc;
Active := ...;
end;
end;
...
end;
...
Ну и уже работать с элементами массива по индексу.