¿¿ como usar el tag con varios checkbox ??

[marcoszorrilla]

Aunque veo más o menos lo que quieres no comprendo la mecánica que quieres seguir, te pongo un ejemplo espero que lo puedas adaptar a tu caso, en este ejemplo he colocado 3 Casillas de verificación y le he puesto en su valor Tag a la 1, 0 a la segunda 10 y a la tercera 20.

Según las que marque me suma 0 10 ó 30.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
s:Integer;
begin
s:=0;
 for i:=0 to form1.ComponentCount -1 do
 begin
     If (Components[i] Is TCheckBox) Then
      If (Components[i] As TCheckBox).Checked = True Then
      s:=s+(Components[i] As TCheckBox).Tag;
 end;

 ShowMessage(intToStr(s));
end;

Un Saludo.

[gaston260]

Amigo la mecanica es la siguiente :

tengo un procedure con un timer dentro del procedure tengo varios checkbox divididos de a ocho
y los manejo de esta forma


x1 x2 x3 x4 x5 x6 x7 x8
-------------------------------------------
x9 x10 x11 x12 x13 x14 x15 x16
-------------------------------------------

suponiendo que cada x es un checkbox , con cada grupo de ocho checkbox manejo la salida del puerto y por cada envio del timer me devulve un numero , suponamos que me fijo en el primer grupo de checkbox que va desde el checkbox1 hasta el checkbox8 , entonces la variable salida se carga con un valor que va desde 0 hasta 255 deacuerdo a cuantos checkbox estan en checked , y haci con los check que van desde el 9 hasta el 16 , es un programita muy tonto pero quiero escrivir poco codigo , entonces voy a provar el codigo que me enviaste , gracias !! si no puedo reutilizar el codigo te vulvo a escribir amigo !

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

[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