OnTimer. Как инкрементировать поле (внутри компонента) одновременно с наступлением события OnTimer ?

[northener]

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

Код нужно выкладывать текстом, а не картинкой

Ребят, вот только не надо излишних придирок и буквоедства.
Какой код вы считаете должен был выложить текстом min@y™? Код модуля ExtCtrls? А нафига?

[fusic]

Сообщение от min@y™

воспользуюсь

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

[Filka]

type
  TForm1 = class(TForm)
  //...
  private
    FList: TList;
    procedure SetEnabledTimers(Value: Byte);
  //...
  end;
//...
implementation  
//...
procedure TForm1.FormCreate(Sender: TObject);
begin
  FList := TList.Create;
  FList.Add(Timer1);
  FList.Add(Timer2);
  // и т. д.
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FList.Free;
end;

procedure TForm1.SetEnabledTimers(Value: Byte);
var
  I: Integer;
begin
  for I := 0 to FList.Count - 1 do
    TTimer(FList[I]).Enabled := IsBitSet(Value, I);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetEnabledTimers(F);
end;

[min@y™]

Дополню. Я бы написал такой дженерик:

TMyEvent = procedure (Sender: TObject; TimerIndex: int32) of object;
TTimerList = class(TObjectList<TTimer>)
private
  // .....
  FOnTimer: TMyEvent;
public 
  function NewTimer(const aInterval: DWORD): TTimer;
  property Enabled[index: int32]: boolean read ... write ...;
  property OnTimer: TMyEvent read FOnTimer write FOnTimer;
end;

[fusic]

Сообщение от min@y™

Дополню. Я бы написал такой дженерик:

TMyEvent = procedure (Sender: TObject; TimerIndex: int32) of object;
TTimerList = class(TObjectList<TTimer>)
private
  // .....
  FOnTimer: TMyEvent;
public 
  function NewTimer(const aInterval: DWORD): TTimer;
  property Enabled[index: int32]: boolean read ... write ...;
  property OnTimer: TMyEvent read FOnTimer write FOnTimer;
end;

не понимаю. прошу пояснить.

[min@y™]

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

не понимаю. прошу пояснить.

Чо не понятно-то?