Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-09-2007
Avatar de tazzmk
tazzmk tazzmk is offline
Miembro
 
Registrado: sep 2007
Posts: 45
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Necesito validar una cadena de IP y Puerto ingresado en un Edit1 (xx.xx.xx.xx:port) Black_Ocean Varios 2 18-11-2006 00:46:41
Como Hacer Una Busqueda En Firebird Y Mostrarla En Un Edit1.text anamaria789 Firebird e Interbase 2 03-06-2006 18:29:49
hacer que un edit1.Text:='3,500.20' sea 3500.20 ctronx Varios 2 14-01-2005 22:46:51
Que sume al Actualizar cmgenny SQL 1 22-04-2004 07:54:08
es posible abrir imagen asi: edit1.text+'*.jpg' jpcancino Gráficos 12 16-02-2004 05:11:03


La franja horaria es GMT +2. Ahora son las 00:38:55.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi