Sumar con Checkbox

[tazzmk]

hola, se me ocurrio sumar usando checkbox

el formulario se usa
edit1
CheckBox1
CheckBox2
CheckBox3
Button1

• El boton es el que procesado todo

Al edit1 se le pone un numero y si se decea se le agrega otro numero el cual se le sumara al edit1

ejemplo:
se ingresa "2" al edit1, luego se marca el checkbox1, cuyo valor interno es de "2" al ejecutar el boton el resultado es de "4"

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"

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
nro1,nro2,nro3,nro4,resultado:word;
begin
nro1:=strtoint(edit1.text);
nro2:=strtoint(checkbox1.text);
nro3:=strtoint(checkbox2.text);
nro4:=strtoint(checkbox3.text);
resultado:=nro1+nro2+nro3+nro4;

if CheckBox1.Cheked Then
2+edit1
Else if CheckBox2.Cheked Then
4+edit1
Else if CheckBox3.Cheked Then
8+edit1

mostrar.caption:='El resultado es = '+inttostr(resultado);
end;

Saludos

[[Delphius]]

Hola tazzmk,
¿Y cual es tu duda?
Acabo de abrir lo que adjuntas y veo que solo te limitaste a hacer la interfaz.
No lo tomes a mal, pero con mostrar la interfaz y no haber expuesto cual es tu problema... llama a una invitación del tipo "Hazme la tarea"

El código que expusiste te arroja un error, debido a que estás intentando sumar un integer a un string y no estás asignando dicha operación a ninguna variable.

Entiendo que recién te inicias... dime. ¿Probaste de otra manera?
En donde, o en que aspecto te confundes, No es complicado hacer lo pides... La lógica que estuviste aplicando no está tan mal... abría que pulir algunas cosas nada más.

Si quieres te ayudo. Dime si lograste avanzar en algo...
¿Dale?

Saludos,

[tazzmk]

hola puse el interfaz para que se entendiera mejor la idea, no puse el codigo hay, para que no tenga problemas para compilar.

mi problema radica en el checkbox, como le asigno un numero interno y luego se pueda combinar con el edit1.

saludos

[[Delphius]]

Todo componente tiene entre sus propiedades una que se denomina Tag. No tiene uso específico y está para que cada quien lo use a su antojo.
Esta propiedad es de tipo integer.

Saludos,

[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