[lostbananan]

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

Код:

1 2 3 4 5

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

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

[angvelem]

Так устроит?

Код:

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

[lostbananan]

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

[lostbananan]

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

[angvelem]

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

Код:

1 2	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]

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

Код:

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

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]

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

Код:

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

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

[Alegun]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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. НА строке кода:

Код:

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

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

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

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

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

[Alegun]

__________________________________

[angvelem]

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

Код:

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

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, зачем лишние телодвижения с флагом и ненужные проверки?