edit1 que sume con un combobox

[tazzmk]

Hola como puedo hacer que al edit1 se sume un combobox
dentro del combobox exiten dentro de el, 5 numeros

resumen: el usuario ingresa un numero al edit y selecciona el numero que decea sumar.

ejemplo:

usuario ingresa en el edit1 el numero 2 y selecciona en el combobox el numero 2, al presionar aceptar sale como resultado "4"

mi problema:
no logro que reconozca la seleccion al combobox para efectuar la suma.



procedure TForm1.Button1Click(Sender: TObject);
var
nro1,nro2,resultado:word;
begin
nro1:=strtoint(suma1.text);
nro2:=strtoint(combobox);
resultado:=nro1+nro2;
mostrar.caption:='El resultado es = '+inttostr(resultado);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if ComboBox1.ItemIndex <> -0 then
combobox1.items.add('2');
combobox1.items.add('4');
combobox1.items.add('5');
combobox1.items.add('10');
combobox1.items.add('13');
end;


Saludos

[eduarcol]

procedure TForm1.Button1Click(Sender: TObject);
var
nro1,nro2,resultado:word;
begin
nro1:=strtoint(suma1.text);
nro2:=strtoint(combobox.Items.string[combobox.selectedindex]); //o bien nro2:=strtoint(combobox.Text);
resultado:=nro1+nro2;
mostrar.caption:='El resultado es = '+inttostr(resultado);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if ComboBox1.ItemIndex <> -0 then
combobox1.items.add('2');
combobox1.items.add('4');
combobox1.items.add('5');
combobox1.items.add('10');
combobox1.items.add('13');
end;

[tazzmk]

muchas gracias !! funciona de maravilla gracias a ti

[MON___]

Lógicamente y teniendo en cuenta cómo tienes escrito el código, para evitar que en el EDIT no se introduzca un valor no numérico con el correspondiente error que se produciría al pulsar el botón habría que asisgnarle al evento onKeyPress el siguiente código:

if not(key in ['0'..'9']) then
begin
key := #0;
messageBeep(0);
end;

[tazzmk]

Lógicamente y teniendo en cuenta cómo tienes escrito el código, para evitar que en el EDIT no se introduzca un valor no numérico con el correspondiente error que se produciría al pulsar el botón habría que asisgnarle al evento onKeyPress el siguiente código:

if not(key in ['0'..'9']) then
begin
key := #0;
messageBeep(0);
end;

hola disculpa pero puse el codigo que mencionas en el "el botón" > "evento onKeyPress" pero igual sale el error. cuando se ingresa en el edit una letra

[MON___]

hola disculpa pero puse el codigo que mencionas en el "el botón" > "evento onKeyPress" pero igual sale el error. cuando se ingresa en el edit una letra

Perdona, pero debes asignar ese código no al onKeyPress del botón, sino al onKeyPress del objeto TEdit