[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]

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

[lostbananan]

Сначала опишщу чего я хочу добиться (суть задачи) на форме 11 прогресбаров и 11 таймеров, по-началу запускается таймер №1 при срабатывании позиция прогресбара№1 +1... когда позиция прогресбара становится равной 100 - таймер№1 выключается, включается таймер№2 ккоторый двигает позицию прогресбара№2 соответственно и так до 11..
Т.е. имитация каких-то процессов в прогресе последовательно...

[angvelem]

Хватит и одного таймера

Код:

var
  pBar : Integer = 1;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  pb : TProgressBar;
begin
  pb := FindComponent('ProgressBar' + IntToStr(pBar));
  pb.Position := pb.Position + 1;
  if pb.Position >= 100 then
    inc(pBar);
  if pBar > 11 then
    Timer1.Enabled := False;
end;

[lostbananan]

Спасибо, вроде сходу то что надо, посмотрю-проверю...
на строке

Код:

pb := FindComponent('ProgressBar' + IntToStr(pBar));

ругается несовместимые типы прогресбар и ткомпонент...
А почему? Ведь прогрессбар наследок ТКомпонент..
Что делать?
Люди добрые, помогите - очень нужно!!!
Здесь есть кто живой или никто не знает?

[Alegun]

Код:

var
pBar: integer = 1;
flg : boolean = false;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if flg then
   begin
  Inc(pBar);
  flg:= false;
   end;

  with (FindComponent('ProgressBar' + IntToStr(pBar)) as TProgressBar) do
begin
  Position:= Position + 1;
  if (Position >= 100) and (pBar <= 11) then flg:= true;
  if (pBar >= 11) and (Position >= 100) then Timer1.Enabled:= False;
  end;
end;

[lostbananan]

Так в чем проблема, почему TProgressBar и TComponent несовместимы, когода TProgressBar наследник TComponent? И как с этим бороться?? Ответ увидел - сейчас проверю, но заранее спасибо..

Код откомпилировался, но при запуске прогресбары все как один на нуле - нет движения!!!

Все по поводу движения исправил, там для таймера был задан неправильный интервал, но:
1. Прогресс идет скажем так на Pb1.Position+1 потом на Pb2.Position+1 и т.д... а надо чтобы прогресбар Pb1.Position0-100 прошел ВЕСЬ потом Pb2.Position, Pb3.Position и т.д.
2. НА строке кода:

Код:

      if (pBar >= 11) and (Position >= 100) then Timer1.Enabled:= False;

сваливается: аксес виолатион...

[M.A.D.M.A.N.]

В отладке посмотреть не судьба?

Опять начинается эпопея с двухнедельным флудом и разъяснением базовых вещей.

[Alegun]

__________________________________

[angvelem]

Опять поторопился

Код:

var
  pBar : Integer = 1;   

procedure TForm1.Timer1Timer(Sender: TObject); 
var
  pb : TProgressBar; 
begin
  pb := TProgressBar(FindComponent('ProgressBar' + IntToStr(pBar)));
  if Assigned(pb) then
  begin
    pb.Position := pb.Position + 1;
    if pb.Position >= 100 then
      inc(pBar);
    if pBar > 11 then
      Timer1.Enabled := False;
  end;
end;

Я конечно недоглядел, но нужно и свою голову на плечах иметь.
Теперь не говори, что опять что-либо не заработает - специально протестировал.

P.S. Alegun, зачем лишние телодвижения с флагом и ненужные проверки?