FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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. |
#2
|
|||
|
|||
Trata con esto:
Saludos... |
#3
|
||||
|
||||
Una pequeña modificación:
En donde dice Check := Components[i] as TCheckBox; sería mejor poner Check := TCheckBox(Components[i]); El operador as implícitamente hace uso del operador is lo cual es innecesario porque ya se verificó antes. Y una observación (a ver si repitiendo causa algún efecto): este código de maeyanes es mucho más recomendable que el uso de FindComponent ya que se hace el recorrido de los componentes del formulario una sólo vez y no multiplicado por 100. // Saludos |
#4
|
|||
|
|||
Por cierto, me di cuenta que puse Check := Components[ I ] is TCheckBox en lugar de as... :P
Última edición por maeyanes fecha: 31-05-2005 a las 17:36:22. |
#5
|
||||
|
||||
Pues no. Veo que ni reiterando quieren omitir el uso de FindComponent.
Una de las pocas (muy pocas) cosas en las que me gustaba más VB son sus arreglos de componentes con lo cual sería mucho más fácil trabajar en estos casos. Dicha esta barbaridad, veamos cómo podemos arreglárnoslas con Delphi. En el formulario declaren el arreglo necesitado:
En el constructor del formulario usen el código de maeyanes pero para llenar el arreglo:
Entonces, para el resto de la aplicación se dispondrá de un arreglo de check boxes mucho más fácil de manipular las veces que sea necesario:
// Saludos |
#6
|
||||
|
||||
Gracias Roman, no sé en que estaba pensando o:
Solo un detalle.... Estas en el OnCreate del Form, en este evento puede que los checkboxes no se hayan construido Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#7
|
||||
|
||||
Cita:
Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#8
|
||||
|
||||
Cita:
// Saludos |
#9
|
||||
|
||||
Cita:
Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#10
|
|||
|
|||
Gracias
Muchas gracias a todos funciono muy bien
|
|
|
|