Eliminazione di tutti i componenti di una determinata classe in un modulo (Delphi)

Question

Questa è probabilmente una domanda stupida, ma il mio cervello è appena cotto abbastanza Penso che userò una delle mie "linee di vita" per vedere se riesco a ottenere un po 'di aiuto dai miei amici in overflow. ;)

Ho bisogno di eliminare tutte le occorrenze di un particolare tipo di componente nel mio modulo principale (alcune di esse sono all'interno di pannelli o fogli di calcolo, ma tutte su e di proprietà dello stesso modulo). Ecco quello che ho adesso:

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

Il problema è (e sapevo che sarebbe stato prima che ho compilato esso) che, una volta distruggo la componente, lista dei componenti re-indici del modulo e finisco fuori dai limiti.

Qual è il modo migliore per risolvere questo problema? Ho pensato di aggiungere i componenti "trovati" a un array standalone, e poi passare attraverso quello dopo questo ciclo per eliminarli, che penso funzionerà .... ma è l'approccio migliore?

TIA

---

UPDATE:

Voi ragazzi roccia. Grazie. :)

Answer 1

Hai quasi ragione. Il tuo ciclo dovrebbe essere simile

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

In questo modo la chiamata alla funzione "frmMain.ComponentCount" viene fatto all'inizio e non di nuovo.

Dovresti anche chiamare Gratuito come sopra, non Distruggi - Non riesco a ricordare perché al momento. Bri

Answer 2

Iniziare in alto e lavorare all'indietro.

cioè:

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

chiamate gratuitamente invece di distruggere. Chiamate gratuite Distruggi dopo aver verificato un riferimento valido.

Answer 3

La stessa soluzione con un ciclo 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

Esso non può avvenire nel tuo caso, ma il controllo if frmMain.Components[i] is TMyClass sarà anche restituire vero per classi discendenti di TMyClass. Se si sta veramente cercando la rimozione di una classe specifica, potrebbe essere necessario aggiungere un ulteriore controllo dello ClassName.

Answer 5

Se avete bisogno di controllare & distruggere un componente noto di nome Usa

If YourComponent <> Nil Then 
    YourComponent.Free; 

Answer 6

Per Belle Contrle in forma o il pannello può utilizzare questo codice

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;