Sumar con Checkbox

[tazzmk]

hola, eh provado de distintas forma el checkbox pero no me funciona

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n1,n2,resultado:integer;
begin
n1:=strtoint(edit1.text);
n2:=strtoint(CheckBox1.text);
n2:=2;
//para el primer checkbox
if n2.Checked Then
Begin n2+edit1 end
resultado:=n1+n2;
//muestra el resultado
mostrar.caption:='El resultado es = '+inttostr(resultado);
end;
end.

cuando el checkbox esta marcado deberia se agregarse como suma al edit.

[[Caral]]

Hola
Revisa el archivo
Saludos

[tazzmk]

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

"eres un ser divino"

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