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

[Dvoishnik]

создаю в динамике UpDown

    TUpD[i] := TUpDown.Create(UpDown1.Parent);
    TUpD[i].Parent:=UpDown1.Parent;
    TUpD[i].Left:=UpDown1.Left;
    TUpD[i].Top:=UpDown1.Top+UpDown1.Height*(i+1)+(1*i) ;
    TUpD[i].Width:=UpDown1.Width;
    TUpD[i].Height:=UpDown1.Height;
    TUpD[i].Position:=qryPostypleniekolvo.Value;
    strngrd2.Cells[8,i+2]:=IntToStr(TUpD[i].Position);
    TUpD[i].Tag:=i+2 ;
    TUpD[i].OnClick:=Form33.UpDown1Click;
    inc(i);

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

SetLength(TUpD,  Length(TUpD)+lst1.SelCount);
..............
          TUpD[RowCount-1] :=TUpDown.Create(UpDown1.Parent);
          TUpD[RowCount-1].Parent:=UpDown1.Parent;
          TUpD[RowCount-1].Left:=UpDown1.Left;
          TUpD[RowCount-1].Top:=UpDown1.Top+UpDown1.Height*(RowCount-2)+(1*RowCount-1) ;
          TUpD[RowCount-1].Width:=UpDown1.Width;
          TUpD[RowCount-1].Height:=UpDown1.Height;
          TUpD[RowCount-1].Position:=StrToInt(s);
          Cells[8,RowCount-1]:=IntToStr(TUpD[RowCount-1].Position);
          TUpD[RowCount-1].Tag:=RowCount-1 ;
          TUpD[RowCount-1].OnClick:=Form33.UpDown1Click;

выполняю при закрытии формы

  if TUpD <> nil then  //если массив существует
    for i := 0 to Length(TUpD) - 1 do  // от первого (нулевого) элемента до последнего
    //удал¤ем его
      FreeAndNil(TUpD[i]);
  TUpD := nil; // на всякий случай.

проверял пошагово массив отчищается.
почему остаются элементы массива компонентов на форме?? (те которые создавал в дочернем модуле.)

[Аватар]

Как другой модуль видит TUpD и UpDown1? Подозреваю, что TUpD в другом модуле другой

ADD модле - надеюсь это модуль

[evg_m]

TUpD[RowCount-1] :=TUpDown.Create(UpDown1.Parent);

запись как -бы подразумевает здесь цикл...
а какой диапазон изменений rowcount ? Сколько создаете? может идет наложение поверх старых? (перезапись массива).

[min@y™]

Меня больше интересует - чем обоснован такой подход!
Как звучит задание в оригинале?

ИМХА: динмассив визуальных компонентов - это совсем некомильфо. Уверен, что здесь от него можно отказаться. НУЖНО (!!!) отказаться.

[Dvoishnik]

Сообщение от Аватар

Как другой модуль видит TUpD и UpDown1? Подозреваю, что TUpD в другом модуле другой

я объявил 1 глобалку. как он мог стать другим??

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

может идет наложение поверх старых? (перезапись массива).

даже если так почему при выполнении

 if TUpD <> nil then  //если массив существует
    for i := 0 to Length(TUpD) - 1 do  // от первого (нулевого) элемента до последнего
    //удаляем его
      FreeAndNil(TUpD[i]);
  TUpD := nil;

они остаются?

Сообщение от min@y™

ИМХА: динмассив визуальных компонентов - это совсем некомильфо. Уверен, что здесь от него можно отказаться. НУЖНО (!!!) отказаться.

уже отказался, но все же интересно почему так получилось.
п.с. при добавлении в StrinGrid хотел к одному столбцу к каждой ячейке прикрутить UpDown для редактирования столбца решил обойтись одним который перемещается в зависимости от фокуса.

[Аватар]

evg_m правильно написал, создаешь в цикле, а записываешь поверх в последнюю ячейку массива. FreeAndNil умный и ячейки с nil в массиве обходит. Затертых ссылок нет в массиве и удалятся те объекты при убивании формы.

[Dvoishnik]

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

TUpD := nil;

[Аватар]

разве не добивает массив

А это при чем? Нет в массиве ссылок на созданные объекты. Ты их затер раньше. TUpD := nil просто длину массива 0 делает. И ни как не связан с уничтожением объектов если в массиве ссылки на них

[Dvoishnik]

Сообщение от Аватар

А это при чем? Нет в массиве ссылок на созданные объекты. Ты их затер раньше. TUpD := nil просто длину массива 0 делает. И ни как не связан с уничтожением объектов если в массиве ссылки на них

понял, спасибо.