[fusic]

Помогите решить задачку.
Есть компонент Timer, который для удобства нужно слегка доработать:
-добавить пару методов - это легко получилось !
-и добавить свойство Count=число срабатываний таймера с момента последнего старта. Вот тут засада.
Поле добавил. Но как его инкрементировать (внутри компонента) одновременно с наступлением события OnTimer ?
Помогите пожалуйста !

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

type   TTimer = class(ExtCtrls.TTimer)   private     FCount: Integer;   protected     procedure Timer; override;   public     property Count: Integer read FCount;   end; ... procedure TTimer.Timer; begin   Inc(FCount);   inherited Timer; end;

[fusic]

Спасибо. Получилось.
В догонку вопрос.
Имеем 6 таймеров на форме (T0...T5).
Имеем переменную F: byte - это 8 флагов полученные в результате обработки данных
полученных с внешнего устроцства. Младшие 6 используются для запуска тех таймеров.
Как проверяя в цикле флаги IsBitSet(F, <номер бита>) запускать или не запускать соответствующий таймер.
Есть вариант через FindComponent. Может быть есть более правильный вариант ?

[dr. F.I.N.]

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

Есть вариант через FindComponent. Может быть есть более правильный вариант ?

-Массиву присвоить указатели на существующие таймеры:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

TForm1=class(TForm) ... public   timers: array[0..5] of Timer; end; ... procedure TForm1.OnCreate(Sender: TObject); begin ...   timers[0] := T0;   ...   timers[5] := T5; end; ...

-Динамическое создание массива таймеров:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

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; ...

Ну и уже работать с элементами массива по индексу.

[Alegun]

Похоже достаточно одного постоянно работающего таймера, а в его обработчике можно проверять состояние установки бит, напр. if (F and (1 shl <номер бита>)) <> 0 then делаем else не делаем

[fusic]

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

Похоже достаточно одного постоянно работающего таймера, а в его обработчике можно проверять состояние установки бит, напр. if (F and (1 shl <номер бита>)) <> 0 then делаем else не делаем

внешнее устройство присылает данные (когда ему захочется), эти данные считаются и принимается решение запускать или не запускать тот или иной таймер а если запускать то на сколько. Одного таймера мало. Можно по GetTickCount в одном цикле проверять но ... зачем.