Ver Mensaje Individual
  #4  
Antiguo 31-05-2005
novice novice is offline
Registrado
 
Registrado: may 2005
Ubicación: Cerca de la Frontera
Posts: 4
Reputación: 0
novice Va por buen camino
Gracias por tu respuesta Lepe pero me esta marcando incompatibilidad

[Error] Unit1.pas(35): E2010 Incompatible types: 'TCheckBox' and 'TComponent'

en la linea:

check := Findcomponent('Checkbox'+inttostr(i));

//Este es el codigo
procedure TForm1.FormCreate(Sender: TObject);
var check:TcheckBox;
var i:integer;
begin

for i:=0 to 100 do
begin
check := Findcomponent('Checkbox'+inttostr(i));
if check <> nil then
begin
// codigo trabajo
end;
end;

end;

Tendras alguna sugerencia gracias.


Responder Con Cita