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