Ver Mensaje Individual
  #14  
Antiguo 10-05-2011
ZiriusB ZiriusB is offline
Miembro
 
Registrado: oct 2010
Posts: 86
Reputación: 16
ZiriusB Va por buen camino
Question

Gracias, mil gracias por responder y aclarar mis dudas he estado trabajando en eso y he aprendido...

Una vez que tengo el numero en dicho TEDIT ( tengo 13 TEDIT) he intentado con el COMPONENT COUNT mostrar el resultado de la suma de esos TEDIT y dividirlos entre el numero de TEDIT (13)

Código Delphi [-]
var
  c, i, j, f: integer;
  r: Double;
......
  
r:= 0;
c:= 0;
  for i:= 0 to ComponentCount -1 do
   if (Components[i] is Tedit) and
      (Tedit(Components[i]).text > -1) then
   begin
     r:= r + StrToFloat(Tedit(Components[i]).text [Tedit(Components[i]).text]);
     Inc(c);
   end;
    if c > 0 then
    npromedio.Text:=(FormatFloat('#,##0.##', r/c));

Eso lo coloco dentro de cada TEDIT evento ONCHANGE, use como base un ejemplo que me dieron hace tiempo para un COMBOBOX...
__________________
"Ningun precio es alto por el privilegio de ser uno mismo..."

Última edición por ZiriusB fecha: 10-05-2011 a las 20:03:52.
Responder Con Cita