Ver Mensaje Individual
  #1  
Antiguo 10-09-2007
Avatar de tazzmk
tazzmk tazzmk is offline
Miembro
 
Registrado: sep 2007
Posts: 45
Reputación: 0
tazzmk Va por buen camino
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

Última edición por tazzmk fecha: 03-10-2007 a las 09:02:22.
Responder Con Cita