Ver Mensaje Individual
  #2  
Antiguo 09-07-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Reputación: 0
coso Va por buen camino
hola. Si te esta dando ese error es porque ValorX tiene que ser diferente de 'CheckBox1'...me parece que valorx lo vas cambiando. Entonces lo que deberias hacer es, simplemente, obviar la excepcion, por ejemplo

Código Delphi [-]
var
   checkbox : TCheckBox;
   spinedit  : TSpinEdit;
   editbox : TEdit;
  ...
begin
   checkbox := nil;
   spinedit := nil;
   editbox := nil;
   ...

   for i := 0 to numero_componentes_cargados do
   begin
        valorx := Nombres_componentes[i];

        if checkbox := nil then
        try 
            checkbox := (FindComponent(Valorx) as TCheckBox);
        except 
        end;

        if spinedit = nil then
        try
            spinedit := (FindComponent(Valorx) as TSpinEdit);
        except
        end;
        
        if edit = nil then
        ...
   end;
   ...
   if edit = nil then ShowMessage('No se encontro el componente edit');
   if checkbox = nil then ShowMessage('No se encontro el checkbox');
   if spinedit = nil then ShowMessag('No se encontro el spinedit');
  ....
  // etc...
end;

son importantes los = nil ya que sino es posible que se perdieran si anteriormente se hubiesen cargado. Saludos.

Última edición por coso fecha: 09-07-2008 a las 18:26:55.
Responder Con Cita