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

[Sibedir]

Лан. Завтра с утрица гляну. Ща домой пойду. Не спал я сёдня.

[Sibedir]

Вот оно, как я и говорил:

  if IndexN >= 0 then                                                       //
  begin                                                                     // Images Loading
    Memo1.Lines.Add('IndexN ' + IntToStr(IndexN));
    for i_FCr := 0 to IndexN do                                             //
    begin                                                                   //
      NewCreate(i_FCr);                                                     //
    end;                                                                    //
  end;                                                                      //

Зачем указывать немер, если вы добавляете всегда в конец?

Вот еще:

    if Checks[i_delete].Checked = True then

Достаточно просто

    if Checks[i_delete].Checked then

Оно само по себе булиеновское

Короче, как-то так: Sib_New folder.zip

Добавлено ------------------------------------------------------------------------------
И еще, ArtGrek, вы никогда не работали с фреймами? Здесь было бы самое оно. А то столько компонентов вручную ... не гуд.

[GunSmoker]

Автору: советую на бумажке рисовать. Как и куда и чего помещается.

Алгоритм сперва продумать. Нарисовать. Вот было это. Стало то. Здесь нужно передать такую информацию, а там - она и так известна. И так далее.

И только потом садиться писать. А после написания - отлаживать. Если ошибку увидеть в тексте не удаётся, то её подскажет отладчик.

http://www.gunsmoker.ru/2011/01/blog-post.html
http://www.delphikingdom.ru/asp/view...ubHeader_2_1_1

P.S. И ещё полезно на готовый код смотреть. Вот есть, к примеру, список TList. Есть у него Add, Insert и Delete. Как реализован Delete? А, вон оно как. И вообще - а может TList и использовать?

[ArtGrek]

Зачем указывать немер, если вы добавляете всегда в конец?

что б при запуске знать сколько раз добавлять

if Checks[i_delete].Checked then

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

И еще, ArtGrek, вы никогда не работали с фреймами? Здесь было бы самое оно. А то столько компонентов вручную ... не гуд.

нет, не работал, как то пробывал посмотреть что ето, но так и не понял, полуформа полу компонент ???

Автору: советую на бумажке рисовать

так и делаю, в неорганизованости виноват нехваток знании и частые переделки, всвязи c новыми узнаваниями),
шас решил, буду делать как знаю, доведу до конца, а потом буду совершенствовать
за ссылки тоже спасибо

Короче, как-то так: Sib_New folder.zip

огромное спасибо, пошел разбираца

[ArtGrek]

прошлая моя попытка

List: array [1..9] of TObjectList;
Panels: TsPanel;
Images: TImage;
Effects: TsComboBox;
EffectsL: TsLabel;
Intervals: TsDecimalSpinEdit;
IntervalsL: TsLabel;
Checks: TsCheckBox;
BitMaps: TBitmap;

пытался организовать ето, но не сообразил

TMyItem = record
Panel: TPanel;
Image: TImage;
Effect: TComboBox;
EffectL: TLabel;
IntervalL: TLabel;
Check: TCheckBox;
end;

TMyArr = array of TMyItem;

а можно создать так?

  TMyTeksts = record
    tekst: array of TLabel;
  end;

  TMyArr2 = array of TMyTeksts;

или ето равносильно

Teksts: array of array of TLabel;

[Sibedir]

что б при запуске знать сколько раз добавлять

Вы это и так знаете. Вам же известна длина массива.

прошлая моя попытка
...

Ваще ничё не понял

  TMyTeksts = record
    tekst: array of TLabel;
  end;

  TMyArr2 = array of TMyTeksts;

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

нет, не работал, как то пробывал посмотреть что ето, но так и не понял, полуформа полу компонент ???

А зря.

буду делать как знаю, доведу до конца, а потом буду совершенствовать

Вкорне не верный подход. Все-равно что: Построю здание из бетона, а арматуру потом напихаю. ArtGrek, учись добивать вопрос, а не откладывать на потом. А если не знаешь/не умеешь/до конца не понимаешь чего, то не начинай это делать. Производительность и качество в программировании вомногом зависит от привычки. Выработаешь плохие привычки, потом исправится будет сложно, а главное продукт будет корявый.

Кстати, фреймы - это очень просто: Sib_New folder_With Frame.zip

[ArtGrek]

Вы это и так знаете. Вам же известна длина массива.

я не поиму, вы за то что б вообше без индекса или без глобального индекса?

[Sibedir]

Без глобального индекса - это точно.
Хотя, совсем без индексов никак. Но тут все уже зависит от того, что вы понимаете под индексом. В цикле

for i := 1 to 10 do

i - это ведь тоже индекс.

[ArtGrek]

не я про индех что читаеца из ини фаила, что б знать сколько елементов создавать
ну с етим вроди понял
а на шет фреимов, ето получаеца как аналог новои компоненты,
и при обрашении к фраиму обрашаемся ко всем его елементам, например при перестановке(drag and dock)

[Sibedir]

Ой, честно с темой Framr+Drag&Drop не разбирался. Хотя это обычный WinControl, должно все норм работать. Главное определится за что таскать его будем (за чуп или за уши), и сообразно этому обрабатывать начало перетаскивания.