Foros Club Delphi - edit1 que sume con un combobox

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - edit1 que sume con un combobox (https://www.clubdelphi.com/foros/showthread.php?t=47870)

tazzmk

10-09-2007 00:51:06

edit1 que sume con un combobox

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.

Código Delphi [-]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

10-09-2007 00:54:24

Código Delphi [-]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

10-09-2007 01:01:34

muchas gracias !! funciona de maravilla gracias a ti

MON___

10-09-2007 01:25:51

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

10-09-2007 03:34:24

Cita:

Empezado por MON___ (Mensaje 229574)

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___

10-09-2007 22:41:55

Cita:

Empezado por tazzmk (Mensaje 229580)

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

La franja horaria es GMT +2. Ahora son las 08:20:39.