Home/ Questions/Q 131883
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-11T06:10:31+00:00

This is probably a stupid question, but my brain is just cooked enough I

  • 0

This is probably a stupid question, but my brain is just cooked enough I think I’m going to use one of my ‘lifelines’ to see if I can get some help from my stack overflow friends. 😉

I need to delete all occurrences of a particular component type on my main form (some of them are inside panels or tabsheets, but all on and owned by the same form). Here’s what I have now:

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

The problem is (and I knew it would be before I compiled it) that once I destroy the component, the form’s component list re-indexes and I end up out of bounds.

What’s the best way to solve this? I thought about adding the ‘found’ components to a standalone array, and then walk through that after this loop to delete them, which I think will work…. but is that the best approach?

TIA

UPDATE:

You guys rock. Thanks. : )

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. You’re nearly right. Your loop should look like

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

    This way the call to the function ‘frmMain.ComponentCount’ gets done at the beginning and not again.

    You should also call Free as above, not Destroy – I can’t remember why at the moment. Bri

    • 0