Sumar con Checkbox

[[egostar]]

Empezado por tazzmk

muchas gracias "Caral" tu ejemplo me a resolvido muchas dudas

"eres un ser divino"

, Vaya había visto agradecimientos en el foro, pero como este, ninguno, sea pues amigo Carlos, buen inicio de semana.

Salud OS

[Olenkaguilar]

Por favor, me encuentro en el mismo problema, alguíen seria tan amable de subir el archivo de Caral, no veo donde descargarlo o ah sido borrado

[ecfisa]

Hola Olenkaguilar y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Seguramente el amigo Caral haya eliminado el adjunto ya que son tantos los aportes realizados que se le sabe agotar el espacio disponible.

Aunque ignoro cuál fué el código que puso anteriormente Carlos, de este modo también te va a funcionar:

Código Delphi [-]
// Tus CheckBox se deben llamar: CheckBox1, CheckBox2 y CheckBox3
procedure TForm1.Button1Click(Sender: TObject);
var
  i, r: Integer;
  cp : TComponent;
begin
  if TryStrToInt(Edit1.Text,r) then
  begin
    for i:= 1 to 3 do
    begin
      cp := FindComponent('CheckBox'+IntToStr(i));
      if Assigned(cp) and TCheckBox(cp).Checked then
        r := r + StrToInt(TCheckBox(cp).Caption);
    end;
    ShowMessage(Format('El resultado es: %d',[r]));
  end;
end;

Si en alguna pasada Caral lee el hilo y recuerda o aún tiene la otra sugerencia, seguramente te pondrá en conocimiento de ella.

Saludos.

[Olenkaguilar]

Hola Muchas gracias por responder, me marca el siguiente error al marcar cualquiera de los CheckBox:

'CheckBox1' is not a valid integer value.

[ecfisa]

Empezado por Olenkaguilar

Hola Muchas gracias por responder, me marca el siguiente error al marcar cualquiera de los CheckBox:

'CheckBox1' is not a valid integer value.

Hola.

¿ Y le asignaste los valores 2, 4 y 8 a las propiedades Caption de los respectivos TCheckBox como especifica tazzmk en el mensaje #1 ?

Empezado por tazzmk

...
ejemplo 2:
se ingresa "5" al edit1, se marca los 3 checkbox cuyo valor del primer checbox es de "2", el segundo checkbox vale 4 y el tercer checkbox vale 8

entonces el resultado sera "19"
...

Saludos.

[Olenkaguilar]

Si gracias va perfecto, eso es con números enteros, en caso de que los checkbox el caption sea números por ejemplo 0.1 0.25 0.78 ??
Eso sería todo muchas gracias

[ecfisa]

Empezado por Olenkaguilar

Si gracias va perfecto, eso es con números enteros, en caso de que los checkbox el caption sea números por ejemplo 0.1 0.25 0.78 ??
Eso sería todo muchas gracias

Hola.

Código Delphi [-]
...
var
  i  : Integer;
  r  : Double;
  cp : TComponent;
begin
  if TryStrToFloat(Edit1.Text, r) then
  begin
    for i:= 1 to 3 do
    begin
      cp := FindComponent('CheckBox'+IntToStr(i));
      if Assigned(cp) and TCheckBox(cp).Checked then
        r := r + StrToFloat(TCheckBox(cp).Caption)
    end;
    ShowMessage(FormatFloat('0.00', r))
  end
end;

Saludos.