[lostbananan]

Когда-то делал такое, но что-то позабыл как
Суть задачи на форме у меня несколько таймеров (Timer1, Timer2, Timer
n) надо в цикле присвоить длая каждого из та
ймеров рандомный интервал.
думал так:

Код:

  for i:=1 to 11 do
    begin
      v := 'Timer'+IntToStr(i);
      v.Interval := RandomRange(0, 1);
    end;

а так не катит.
Как это делается?

[angvelem]

Так устроит?

Код:

  for I :=1 to 11 do
    TTimer(FindControl('Timer' + IntToStr(I))).Interval := RandomRange(0, 1);

[lostbananan]

А почему бы и нет, если, конечно, это работает

[lostbananan]

А он не работает: incompotable types HWND and String...
Абидна (красвиво код смотрится)

[angvelem]

Работает, только я допустил ошибку. Нужно так:

Код:

  for I :=1 to 11 do
    TTimer(FindComponent('Timer' + IntToStr(I))).Interval := RandomRange(0, 1);

[lostbananan]

компилятор код пропускает, но... значит так у меня каждый таймер при срабатывании сдвигает позицию прогресс бара... Что не правильно?

[angvelem]

Не знаю что вы хотите добиться, но по сути данный код бесполезен.