¿¿ como usar el tag con varios checkbox ??

[gaston260]

Gracias amigo me resolviste la vida jajaja muchas gracias ! hace muchos meses que pienso como hacer esto y no podia dar con la respuesta , incluso vi algo de concatenacion que esta en otro hilo en este foro y creo que supiste resolver con lo minimo de informacion algo que me costo explicarte , incluso nunca me contestaste mal , como he visto en algunos hilos , y permiteme desirte que ¡¡ tu eres el numero uno !! , ah casi me olvido , en los tag necesite poner el numero 1 en el primer check 2 en el segundo 4 en el tercero 8 en el cuarto y haci hasta llegar al numero que me interesa.

solo dos preguntas mas como funciona tu codigo ? y como ago para escribir el codigo de delphi y que se vea higual en este hilo ?

[*Caro*]

Hola gaston260, dentro de Component se encuentra la lista de componentes de un propietario en tu caso tu formulario, donde estos componentes pueden ser componentes visuales y no visuales. Pero también puedes utilizar la propiedad Controls de dicho formulario, aquí solo se encuentra la lista de los componentes Visuales.

Sobre esta pregunta "como ago para escribir el codigo de delphi y que se vea higual en este hilo", supongo que te refieres a que el código que quieres publicar se vea de la misma forma que marcos te lo puesto, solo tienes que encerar tu codigo con las etiquetas [delphi] codigo [ /delphi], sin el espacio.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
 s:Integer;
begin
 s:=0; 
 for i:=0 to form1.ComponentCount -1 do //ComponentCount-> cantidad de componentes del formulario begin
     If (Components[i] Is TCheckBox) Then //Preguntamos si el componente en esa posición es un CheckBox
      If (Components[i] As TCheckBox).Checked = True Then //Preguntamos si ese CheckBox tiene su propiedad Checked en True, si es asi sumamos
      s:=s+(Components[i] As TCheckBox).Tag;
 end;
 ShowMessage(intToStr(s));
end;

Saluditos