| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Правельное выполнение метода Free [D7, XP]
dreamse © (2007-02-27 05:28:00)Приветствую.
Есть панель на ней динамически создаються кнопки. Нужно кодом очистить все кнопки на панели. т.е метод free
Пробую такой код но он конечно же не работает
for i := 0 to ComponentCount - 1 do
PanelButton(Components[i]).Free;
так как удаляеться компонент I и цикл выпадает с ошибкой.
Как грамотно очистить панель методом Free без использования цикла ?
прим. Почему беру ComponentCount потому что код выполняеться внутри компонента. так что всё верно. Удалиться может только кнопки мозданные внутри.
Ega23 (2007-02-27 16:17:00) [1]
> Всё работает. удаляеться с конца по одной кнопке. В чём
> некоректность ?
Тупо когда создаёшь свою кнопку, подставляй ей в качестве Owner свою панель.
И всё. Панель сама при уничтожении грохнет все свои контролы
MBo (2007-02-27 16:06:00) [2]>Всё работает. удаляеться с конца по одной кнопке. В чём некоректность ?
Ты проверяешь, не кнопка ли это, значит, в списке могут быть и другие компоненты. Как только встретится другое, цикл заклинивает
dreamse (2007-02-27 15:56:00) [3]> Аноним (27.02.07 10:15) [5]
> Если у тебя вдруг хоть один компонент окажется не TRunPanelButton, то что получим? Получим невыход из цикла.
В самом первом сообщении сказал ещё что такой ошибке не будет так как данный код выполняеться изнутри компонента панели где больше нет компонентов кроме кнопок
> MBo © (27.02.07 09:42) [3]
Всё работает. удаляеться с конца по одной кнопке. В чём некоректность ?
Аноним (2007-02-27 10:15:00) [4]
> решил так
Если у тебя вдруг хоть один компонент окажется не TRunPanelButton, то что получим?
Получим невыход из цикла.
> Ega23 ©
А зачем по контролам то? По компонентам - вполне нормально, и никакой рекурсии не нужно
Ega23 (2007-02-27 09:51:00) [5]
With Panel1 do
begin
for i:=ControlCount-1 downto 0 do
if (Controls[i] is TRunPanelButton) then
TRunPanelButton(Controls[i]).Free;
end;
Примечание: данный код не совсем корректен, т.к. не учитывает, что на данной панели могут быть контейнеры (TPanel, TGroupBox, etc), в которых "сидят" твои кнопки.
Полностью правильно - рекурсивно делать.
MBo (2007-02-27 09:42:00) [6]>решил так
это некорректно.
dreamse (2007-02-27 09:39:00) [7]спасибо
решил так
while ComponentCount > 0 do
if (Components[ComponentCount-1] is TRunPanelButton) then
TRunPanelButton(Components[ComponentCount-1]).Free;
Palladin (2007-02-27 05:56:00) [8]
> dreamse (27.02.07 05:28)
for i := ComponentCount - 1 downto 0 do
PanelButton(Components[i]).Free;
| |
