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.
|