| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как удалить все эдиты на форме?
Гуест © (2006-05-29 16:40:00)Как удалить все эдиты на форме?
пытался сделать так:
for i:=0 to MainForm.ComponentCount-1 do
begin
if MainForm.Components[i] is TEdit then
(MainForm.Components[i] as TRadioButton).Destroy;
end;
но т.к. ComponentCount уменшаеться после того как я удалил Едит, то в конце цикла вылетает ошибка..
подскажите плз :)
Юрий Зотов (2006-05-30 17:13:00) [1]> Ega23 © (29.05.06 16:51) [4]
Не нарвется. При уничтожении компонента тот оповестит об этом своего владельца, а владелец удалит ссылку на уничтожаемый компонент из своего списка. Поэтому при уничтожении самого владельца битых ссылок в этом списке не будет.
Чапаев (2006-05-29 16:59:00) [2]
> > но т.к. ComponentCount уменшаеться после того как я удалил
> > Едит, то в конце цикла вылетает ошибка..
> Тут ещё один момент тонкий есть: ты нарвёшься на AV при
> вызове деструктора главной формы.
Не нарвётся.
Автор, делай цикл не for...to, а for...downto.
PS. Как невовремя тему переместили... Отправляю ответ -- мне: обсуждение закрыто.
Ega23 (2006-05-29 16:51:00) [3]
> но т.к. ComponentCount уменшаеться после того как я удалил
> Едит, то в конце цикла вылетает ошибка..
Тут ещё один момент тонкий есть: ты нарвёшься на AV при вызове деструктора главной формы. Потому что он попытается сделать
for i:=ComponentCount-1 downto 0 do TObject(Components[i]).Free;
Гуест (2006-05-29 16:48:00) [4]
> (MainForm.Components[i] as TRadioButton)
тьфу, то я из разных кусков копировал :)
2umbra спасибо!
umbra (2006-05-29 16:46:00) [5]
for i:=MainForm.ComponentCount-1 downto 0 do
begin
{......................................}
end;
Desdechado (2006-05-29 16:45:00) [6]> if MainForm.Components[i] is TEditthen
> (MainForm.Components[i] as TRadioButton)
интересный подход
> ComponentCount уменшаеться после того как я удалил Едит, то в конце
> цикла вылетает ошибка
нет, конец цикла вычисляется заранее
и вызывать нужно Free
| |
