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

[Nagoran]

Доброго времени.
Имеется набор из кнопок. Их имена - 1, 2, 3, 4, 5, ... . Они создаются при нажатии другой кнопки, имена присваиваются с помощью счетчика. Кнопку можно закрыть при двойном нажатии.
Вопрос: как осуществить создание кнопок в зависимости от того, какая кнопка отсутствует. Например, создали 1-ю, 2-ю, 3-ю. Закрыли 2-ю, остались 1-я, 3-я, значит, при следующем создании кнопки она должна быть 2-ой, а потом уже 4-я, 5-я, ... .

[Stilet]

А можно, если не секрет, узнать зачем такое понадобилось?

[Человек_Борща]

Скучно человеку.

[Аватар]

Ну хочется дырки в именах забить. Controls и ControlCount и искать дырки

[Nagoran]

Stilet, это небольшой кусок для диплома. Ответа на форуме не нашел. Гугл тоже не помог. А написать сюда сродни последней инстанции.
Человек_Борща, по-вашему это элементарнейший случай?

[Serge_Bliznykov]

Человек_Борща, по-вашему это элементарнейший случай?

да. И элементарнейший, к тому же и достаточно бессмысленный - какая разница программе, как называются кнопки - есть ли пропуски в номерации или нет?!
Да хоть как их называйте!!

Как найти пропуски - смотри ответ (с) Аватар в пост #4

Имеется набор из кнопок. Их имена - 1, 2, 3, 4, 5, ...

а вот тут чуть поподробней!
Имена компонентов в Delphi НЕ МОГУТ быть чисто числовыми! Поэтому, либо кнопки имеют имена, начинающиеся с префикса (например, Button1, Button2 и т.д.), либо речь идёт о чём то другом, не об именах, а, например, о надписях на кнопках!

[Stilet]

Да я не об этом спрашивал... Ладно, проехали:

for i:=0 to 10000 do begin
 but:=TButtom(FindComponent('Button'+IntToStr(i)));
 if but=nil then begin
  Нашли дырку в списке
  i - пустующий номер
 end;
end;

Сразу предупреждаю - не копипастить! Это в качестве идеи, но я бы не делал так.

[Человек_Борща]

Человек_Борща, по-вашему это элементарнейший случай?

Собственно Виталий уже показал пример...

для нумерации, я бы использовал свойство Tag.

Да, задачка немного странная. Интересно, зачем такое надо?

[Nagoran]

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

да. И элементарнейший, к тому же и достаточно бессмысленный - какая разница программе, как называются кнопки - есть ли пропуски в номерации или нет?!
Да хоть как их называйте!!

Как найти пропуски - смотри ответ (с) Аватар в пост #4


а вот тут чуть поподробней!
Имена компонентов в Delphi НЕ МОГУТ быть чисто числовыми! Поэтому, либо кнопки имеют имена, начинающиеся с префикса (например, Button1, Button2 и т.д.), либо речь идёт о чём то другом, не об именах, а, например, о надписях на кнопках!

Имена кнопок я написал просто для ПРИМЕРА. Их название волнует только Вас. Меня интересует лишь сам принцип КАК можно отследить, что в упорядоченной группе кнопок отсутствует какой-то элемент, и при создании нового элемента этот пропуск должен быть заполнен.

[Nagoran]

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

Да я не об этом спрашивал... Ладно, проехали:

for i:=0 to 10000 do begin
 but:=TButtom(FindComponent('Button'+IntToStr(i)));
 if but=nil then begin
  Нашли дырку в списке
  i - пустующий номер
 end;
end;

Сразу предупреждаю - не копипастить! Это в качестве идеи, но я бы не делал так.

а почему так не следует делать?