Sumar y Dividir Combobox
Hola amigos, estoy realizando una aplicacion en donde tengo un formulario con una cantidad de Combobox (pongamos 16) cada combobox tiene dentro numeros del 1 al 4...
Yo necesito sumar todos esos combobox y que el resultado me lo muestre en un Tedit, realice esta linea de codigo:
luego de eso, necesito que me divida el resultado de dicha suma entre el numero de combobox totales, es decir, si el resultado me da 46 eso lo divido entre el numero de combobox y obtengo el resultado... P.D.: existe alguna forma de que no sea tan larga la linea de codigo al sumar los combobox? Espero poder obtener ayuda...gracias! Vale decir que soy novato en esto del delphi! |
Hola.
Probá de este modo:
Saludos. :) |
Ampliando la solución que te ha dado ecfisa:
|
Muchisimas gracias, me ha servido de mucho su ayuda...!
|
division de una celda tstringrid
Buenas porque narices cuando hago una division entre en contenido de una celda entre un numero de sale error que hago mal?
var horas : integer ; var minutos : integer; var tiempo :Integer; const min_hora = 60; // calculo de horas y minutos tiempo:= strtoint(rejilla.Cells[7,arow]); horas:= tiempo/min_hora; tipo de error: [DCC Error] Unit4.pas(171): E2010 Incompatible types: 'Integer' and 'Extended' gracias a todos |
Hola calcena, el mensaje de error lo dice todo: Se está intentando dividir un número en forma real (es decir con decimales) y almacenar su resultado en una variable entera (números sin decimales).
La solución: 1. Declaras a la variable de tipo real o double. O bien, 2. Realizas una división entera mediante el operador DIV, como por ejemplo:
Saludos, |
Amigos use esta formula y me funciona a la perfeccion colocandola en un BOTON con evento click...pero ahora, quiero que al yo ir seleccionando los combobox me sume automaticamente en el TEDIT(que es donde se muestra el resultado de la suma de los combobox) sin necesidad de tener un boton extra para sumar...me explico?
espero puedan ayudarme! |
Hola ZiriusB.
Se me ocurre que podrías usar el evento OnExit de cada ComboBox. (aunque también podría ser OnChange...) Algo como :
Tendrías que asignar el procedimiento ComboBoxExit a cada ComboBox de tu form. Saludos. |
Cita:
probe con un combo y me lanza el resultado de ese solo, lo probare completo a ver! gracias! |
Cita:
Saludos. |
Amigos, quisiera intentar esta misma formula pero con otro componente, con un RADIOGROUP, he intentado cambiarla pero me salta un error, podrian darme una mano con esto...
las variables estan declaradas, todo igual... pero me salta un error! Agradezco su ayuda! |
|
Hola ZiriusB.
Un saludo. |
La franja horaria es GMT +2. Ahora son las 06:15:39. |
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