try except

[mauqu]

Estimados, tengo una duda existencial, jajaja..., como puedo hacer que cuando me de un error el codigo que estoy tratando con el try continue en la línea siguiente a la que ocaciono el error ?

try
if (Components[i] is TPanel) then
RemoveComponent(components[i])
excep
end;

el error lo da cuando elimino un tpanel, el tema es que quiero seguir examinando si hay más tpanel, como le digo que no importa el error que continue ?

[seoane]

En el codigo que pones:

try
if (Components[i] is TPanel) then
RemoveComponent(components[i])
except
end;

El código sigue justo después de el "end", es decir la siguiente instrucción, justo lo que pedías. Esto me hace pensar que ese no es exactamente el código que estas usando, es mas, creo que estas usando algún tipo de bucle, y es ahí donde puede estar el error. Así que porque no pones el código completo :confused:

[roman]

Además, habría que ver cuál es la excepción que obtienes, y como lo haces no es la mejor manera de hacerlo. Las excepciones jamás deben ocultarse, sino arreglarse. Como dice seoane, parece que estás en medio de un ciclo, y me da porque bastaría que lo recorrieras alrevés para evitar dolores de cabeza, pero no es más que una adivinanza mientras no des más detalles.

// Saludos

[mauqu]

componentes:=ComponentCount-1;
for i:=0 to Componentes do
begin
try
if (Components[i] is TPanel) then
RemoveComponent(Components[i]) ;
except
end;
end;

la idea es que siga haciendo el bucle, pero ni bien salta el error se sale del for

[roman]

Recorre el ciclo alrevés y olvídate del try-except:


for I := ComponentCount -1 downto 0 do
RemoveComponent(Components[I]);


// Saludos

[mauqu]

santo remedio, al reves funciona , gracias

[seoane]

Antes de nada, para poner código en el foro usa las etiquetas. Es decir:


// Aqui el codigo


Y queda así de bonito :D :

Componentes:= ComponentCount-1;
for i:=0 to Componentes do
begin
try
if (Components[i] is TPanel) then
RemoveComponent(Components[i]) ;
except
end;
end;

Segundo, el error te da porque estas recorriendo la lista al revés. Cuando recorres una lista para eliminar elementos, tienes que hacerlo desde el final hasta el principio. De lo contrario cuando eliminas un elemento, los que vienen a continuación cambian su índice y eso provoca que te "saltes" elementos y, lo que es peor, que al llegar al final hagas referencia a elementos que no existen y de ahí el fallo. Es decir deberías hacerlo así:

Componentes:= ComponentCount-1;
for i:= Componentes downto 0 do
begin
if (Components[i] is TPanel) then
RemoveComponent(Components[i]) ;
end;

[seoane]

:eek: Caramba !!! uno no se puede extender en las respuestas, que te la pisan :D