Динамическое создание компонентов в цикле

[Dvoishnik]

Подскажите как правильно их создавать, а потом обращаться
Пробовал создать массив, не вышло.

var
  Form9: TForm9;
  komp: array [1..30] of TCheckBox;
  ind:Integer;
implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;

{$R *.dfm}

procedure TForm9.FormActivate(Sender: TObject);
var i:Integer;
begin
  ind:=1;
  i:=10;
DataModule2.razmer.First;  // размер это AdoTable
while not DataModule2.razmer.Eof  do
begin
 i:=i+20;
 komp[ind]:=TCheckBox.Create(Form9);
 komp[ind].Parent:=Form9;
 komp[ind].Left:=12;
 komp[ind].Top:=i;
 komp[ind].Caption:=DataModule2.razmerrazmer.Value; 
 ind:=ind+1;
 DataModule2.razmer.Next
end
end;


procedure TForm9.btn1Click(Sender: TObject);
var i:Integer;
begin
for i:=1 to ind do
begin
 if  komp[i].Checked then // здесь делфи говорит что я не прав.
  Form5.strngrd2.Cells[2,1]:=komp[i].Caption;
end;
end;
end.

[northener]

А что именно не вышло? Каменный цветок?

[Dvoishnik]

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

 if  komp[i].Checked then // здесь делфи говорит что я не прав.
   Form5.strngrd2.Cells[2,1]:=komp[i].Caption;

приобращении к компоненту ошибка

[northener]

здесь делфи говорит что я не прав.

Так прям и говорит - "Тут ты Dvoishnik не прав!"? Или как-то иначе?

[Dvoishnik]

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

Так прям и говорит - "Тут ты Dvoishnik не прав!"? Или как-то иначе?

не сохранил я ошибку, задачу решил по другому решить. Исходник переделал. Но все ровно интересно как правильно это делается.
П.С. Ругался не компилятор. На стадии выполнения программы ошибка была.

П.П.С. я искал как это реализовывается толком ничего не нашёл, может мало времени на это потратил. было бы не плохо если б мне подсказали где можно найти информацию о динамическом добавлении компонентов и работе с ними

[northener]

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

не сохранил я ошибку, задачу решил по другому решить. Исходник переделал. Но все ровно интересно как правильно это делается.
П.С. Ругался не компилятор. На стадии выполнения программы ошибка была.

П.П.С. я искал как это реализовывается толком ничего не нашёл, может мало времени на это потратил. было бы не плохо если б мне подсказали где можно найти информацию о динамическом добавлении компонентов и работе с ними

Да подскажем в чём ошибка(и). Ты проект тестовый приложи к сообщению.

[Dvoishnik]

я же говорю се сохранился у меня вариант с динамическим добавлением. мне кроме информации как правильно добавлять компоненты и как к им обращаться ничего не надо.

[kropotkina-alice]

procedure TForm9.FormActivate(Sender: TObject);
В ней вы создали N чекбоксов.
Но при этом переменная ind стала равной N+1.

Стало быть в процедуре procedure TForm9.btn1Click(Sender: TObject);
нужно написать:
for i:=1 to ind-1 do
чтобы не было обращения к несуществующему komp[N+1]

Вот и всё!

[Dvoishnik]

kropotkina-alice
Спасибо

[Алексей_2012]

Написал прогу, недостаток - скорость отрисовки компонента при большом числе элементов массива (>1000 рисовалось секунд 10)
весы = спасибо - слева.