Удаление всех компонентов определенного класса на форме (Delphi)

Question

Это, наверное, глупый вопрос, но мой мозг просто приготовлен достаточно, я думаю, что я собираюсь использовать один из своих «жизненных линий», чтобы увидеть, могу ли я получить некоторая помощь от моего переполнения друзей. ;)

Мне нужно удалить все вхождения определенного типа компонента в моей основной форме (некоторые из них находятся внутри панелей или таблиц, но все включено и принадлежит одной и той же форме). Вот что у меня сейчас:

for i := 0 to frmMain.ComponentCount - 1 do 
    begin 
    if frmMain.Components[i] is TMyClass then frmMain.Components[i].Destroy; 
    end;  

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

Каков наилучший способ решить эту проблему? Я подумал о добавлении «найденных» компонентов в автономный массив, а затем пройти через это после этого цикла, чтобы удалить их, что, я думаю, будет работать ... но это лучший подход?

ТИА

---

UPDATE:

Вы, ребята, рок. Благодарю. :)

Answer 1

Вы почти правы. Ваш цикл должен выглядеть

for i := frmMain.ComponentCount - 1 downto 0 do 
begin 
    if frmMain.Components[i] is TMyClass then 
    frmMain.Components[i].Free; 
end; 

Таким образом, вызов функции «frmMain.ComponentCount» будет сделано в начале и не раз.

Вы также должны позвонить бесплатно, как указано выше, а не уничтожить - я не могу вспомнить, почему в данный момент. Bri

Answer 2

Начало сверху и работа назад.

а именно:

for i := frmMain.ComponentCount - 1 downto 0 do 
begin 
    if frmMain.Components[i] is TMyClass then frmMain.Components[i].Free; 
end; 

Вызов бесплатно вместо Destroy. Бесплатные звонки Уничтожьте после проверки действительной ссылки.

Answer 3

же решение с While-цикле:

i := 0; 
while i < frmMain.ComponentCount do 
begin 
    if frmMain.Components[i] is TMyClass then 
    frmMain.Components[i].Free 
    else 
    inc(i); 
end; 

Answer 4

Это не может произойти в вашем случае, но if frmMain.Components[i] is TMyClass проверка также будет возвращать верно для потомков классов TMyClass. Если вы действительно ищете удаление одного конкретного класса, вам может потребоваться дополнительная проверка ClassName.

Answer 5

Если вам нужно проверить & уничтожить имени известного компонента Используйте

If YourComponent <> Nil Then 
    YourComponent.Free; 

Answer 6

для тонких Contrle в форме или панели могут использовать этот код

var 

i:Integer; 

begin 

for i := 0 to Panel1.ControlCount - 1 do 

    begin 

    if Panel1.Controls[i] is TEdit then 
     Tedit(Panel1.Controls[i]).text := ''; 

    end;