Ver Mensaje Individual
  #2  
Antiguo 14-11-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is online now
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.333
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Utiliza TAG's en tus mensajes, se leen mejor (compara tu código con el mío):

Modifica el código y cambialo por éste:

Código Delphi [-]
  
  // comprueba que el sender es un TPanel, si no vas a tener problemas...
  if not (Sender is TPanel) then
    Exit;
  
  // relizamos la cuenta en orden inverso
  for I:= ((sender as TPanel).ControlCount - 1) downto 0 do
    If (sender as TPanel).Controls[i].Name[1]='B' then
                    (sender as TPanel).Controls[i].free;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita