Ayuda con ControlCount

[JerS]

Listo Amigos muchas Gracias

for I:= ((sender as TPanel).ControlCount - 1) downto 0 do
If (sender as TPanel).Controls[i].Name<>'' then
If (sender as TPanel).Controls[i].Name[1]='B' then
(sender as TPanel).Controls[i].free;

mi error era que estaba preguntando

If (sender as TPanel).Controls[i].Name[1]<>'' then


y eso esta errado porque si esta '' es imposible que consiga algo en este indice [1];

Muchas Gracias

[yusnerqui]

Te recomiendo no abusar tanto del operador as. Si como te indicó el amigo Neftali compruebas que Sender es un TPanel por medio de:

Código Delphi [-]
if not (Sender is TPanel) then
Exit;

Entonces ya puedes usar directamente:

Código Delphi [-]
for I:= TPanel(sender).ControlCount - 1) downto 0 do
  If TPanel(sender).Controls[i].Name<>'' then
    If TPanel(sender).Controls[i].Name[1]='B' then
      TPanel(sender).Controls[i].free;

Con esto ganarás en velocidad y eficiencia.

Saludos

[jachguate]

Amigo JerS. Te llamo a usar las etiquetas [code], [delphi], [sql] o [php] para publicar trozos de código. Ya con tu "edad" en los foros, resulta inaceptable que no la uses aún.

Mas información, aqui.

Hasta luego.