Ayuda con la propiedad Controls

[JerS]

Buenas Amigos de la comunidad de Delphi! hoy los molesto para que me ayuden con lo siguiente!

me interesa eliminar casi todos los objetos que estan emparentados en un Panel Principal, me funciona muy bien! con 2 objetos pero cuando agrego un tercero me da la siguiente exception

ElistError List index out of bounds(2).

lo extraño es cuando veo en el debuger tiene problemas al liberar los objetos pares no los impares Ejm: elimina el 0, 1, cuando viene el 2 salta de una vez al 3 y luego cuando intenta liberar el 2 le dice que no es un valor accesible y me da la exception.

Aqui esta el codigo que utilizo para liberar los objetos

for I:=0 to Panel1.ControlCount -1 do
If Panel1.Controls[i].Name<>'' then
Panel1.Controls[i].Free;

[dec]

Hola,

A ver si esto puede servirte:

Código Delphi [-]
var
  i: integer;
begin
  for i := Panel1.ControlCount-1 downto 0 do
    Panel1.Controls[i].Free;
end;

[delphi.com.ar]

Empezado por JerS

Código Delphi [-]
 for I:=0 to Panel1.ControlCount -1 do
    If Panel1.Controls[i].Name<>'' then
       Panel1.Controls[i].Free;

Este código tiene un problema conceptual, cuando creas un ciclo con un for, el código que inicia los contadores y los valores máximos, en este caso Panel1.ControlCount, se ejecuta una sola vez cuando inicia la iteración y se guarda en un registro, después no se ejecuta nunca mas!!.. como ControlCount va a ir cambiando cuando elimines controles, cada vez va a ser menos, en algún momento vas a llamar a un control que no pertenece al vector.
La solución mas sencilla es hacer el for decremental:

Empezado por JerS

for i := Panel1.ControlCount -1 downto 0 do
...[/delphi]

Saludos!

[dec]

Hola,

Empezado por Federico

Este código (...)

Yo no lo hubiera sabido decir mejor Federico.