Ver Mensaje Individual
  #2  
Antiguo 14-11-2005
Avatar de yusnerqui
yusnerqui yusnerqui is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuba
Posts: 679
Reputación: 23
yusnerqui Va por buen camino
Smile

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
__________________
Lo importante no es llegar primero, sino saber llegar.

Para que puedas llegar mejor lee la Guia de Estilo


Última edición por yusnerqui fecha: 14-11-2005 a las 19:37:45.
Responder Con Cita