[lostbananan]

у меня на форме динамически создаэтся 11 прогрессбаров:

Код:

      bars[i] := TProgressBar.Create(Form1);
      bars[i].Parent := Form1;
      bars[i].Left := 22;
      bars[i].Width := 521;
      bars[i].Top := 22+40*i;

На этой же форме есть таймер. при срабатывании таймера надо увеличить позицию бара на 1, как найти эти бары?
Пробывал так:

Код:

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

Код компилируется - нормально он написан /без ошибок/ но в прогресбарах на форме позиция не меняется...
Ясно что я неправильно выбираю прогресбары.
Как их ПРАВИЛЬНО выбирать?

[NumLock]

Код:

pb := bars[i];

bars[] сделать полем формы

[lostbananan]

Код понял, а как сделать полем формы?
У меня bars : array[0..10] of TProgressBar; переменная формы

Теперь возник такой вопрос. К прогресбару из таймера я обращаюсь радномно и надо если у ВСЕХ прогресбаров позиция больше или равна 100 произвести определенные действия. Как это красвио написать? Там вроде надо ксор использовать...

И еще (код у меня пока далеко не оптимальный) но всеже хочу понять почему во время выполнения программы возникает ошибка времени выполнения "Access violation at adress 00403414 min module. Read of adress 00A28000"?
Кто может здесь помочь?

[NumLock]

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

почему во время выполнения программы возникает ошибка времени выполнения "Access violation at adress 00403414 min module. Read of adress 00A28000"?

это из-за ошибки в программе.

[PhoeniX]

AV - доступ к компоненту/переменной/объекту, который отсутствует в памяти. Это может быть, например, выход за границы динамического массива. Посмотри, где появляется эта ошибка, и пройдись по функции (целиком) в отладчике. Там увидишь, где ошибка.

[lostbananan]

ПРИ дебаге, он меня выкидывает в

Код:

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

в енд. И как определить где происходит ошибка?

Я нашел какой кусок кода вызывает ошибку:

Код:

Text[4] := TLabel.Create(Form1);
  Text[4].Parent :=Form1;
  Text[4].Caption := 'Áîðãè';
  Text[4].Left := 435;
  Grid[4] := TDrawGrid.Create(Form1);
  Grid[4].Parent := Form1;
  Grid[4].Left := 421;
  Grid[4].RowCount := 1;
  Grid[4].ColCount := 1;
  Grid[4].Enabled := false;
  Grid[4].DefaultColWidth := 100;
  Grid[4].DefaultRowHeight := 6*debts;
  Grid[4].Width := 100;
  Grid[4].Height := 6*debts;
  Grid[4].Top := 600-Grid[4].Height+20;
  Grid[4].ScrollBars := ssNone;
  Grid[4].Tag   := 5;
  Grid[4].OnDrawCell:=DrawGrid1DrawCell;

Но вот что здесь может вызвать ошибку НЕ ПОНИМАЮ!

[PhoeniX]

В каком методе этот код? И в какой строчке вылетает?

[lostbananan]

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

Я нашел какой кусок кода вызывает ошибку:

Код:

Text[4] := TLabel.Create(Form1);
  Text[4].Parent :=Form1;
  Text[4].Caption := 'Борги';
  Text[4].Left := 435;
  Grid[4] := TDrawGrid.Create(Form1);
  Grid[4].Parent := Form1;
  Grid[4].Left := 421;
  Grid[4].RowCount := 1;
  Grid[4].ColCount := 1;
  Grid[4].Enabled := false;
  Grid[4].DefaultColWidth := 100;
  Grid[4].DefaultRowHeight := 6*debts;
  Grid[4].Width := 100;
  Grid[4].Height := 6*debts;
  Grid[4].Top := 600-Grid[4].Height+20;
  Grid[4].ScrollBars := ssNone;
  Grid[4].Tag   := 5;
  Grid[4].OnDrawCell:=DrawGrid1DrawCell;

Но вот что здесь может вызвать ошибку НЕ ПОНИМАЮ!

Причем ошибку вызвает даже только:

Код:

Text[4] := TLabel.Create(Form1);

А вот

Код:

Text[3] := TLabel.Create(Form1);

ошибки не вызывает.
P.S.

Код:

  Grid  : array[0..16] of TDrawGrid;
  Text  : array[0..16] of TLabel;

Помогите, люди добрые!!!

[Страдалецъ]

1. В вашем коде на срабатывание таймера совершенно не ясно какой бар вы обрабатываете. Чему равен индекс массива i ?
2. Вот что вы хотели сказать в этой строчке кода?

Код:

if pBar > 11 then
    begin

откуда pBar взялся? Если это внешняя переменная, и она отвечает за текущий бар, то зачем тогда вы его ищете в п.1 ?

[PhoeniX]

Привет, давно не виделись

Код:

if pb.Position >= 100 then
      inc(pBar);
    if pBar > 11 then

Видимо, pBar отвечает за количество "завершённых" прогрессбаров. Только реализовано криво

[Страдалецъ]

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

Привет, давно не виделись

pb и pBar - разные переменные

Угу, когда отправил сообщение, понял. Потому переправил немного