que tal de nuevo molestando con mis novatadas, pero necesito obtener algunas funciones de estadistica para un programa, los datos los tengo ke obtener en base al resultado de un query ke ejecuto sobre unas tablas y aventando el resultado en un dbgrid, ya mas o menos tengo el codigo para sacar la moda ke es el dato ke mas se repite en una columna pero no logro obtenerlo, aparte tengo ke sacar el crecimiento poblacional en base a otras columnas del mismo query, si alguien tiene el codigo o sabe si existen funciones ya hechas para tales casos se lo agradecere, muchisimas gracias de nuev, pongo el pedazo de codigo para segun yo obtener la moda, aunke no me sale
begin
query1.first;
edadant:=query1.fieldbyname('Edad').Value;
cuantos:=1;
cuantosmoda:=cuantos;
edadmoda:=query1.fieldbyname('Edad').Value;
query1.Next;
while Query1.Eof=False do
begin
showmessage('edadant trae '+Inttostr(edadant)+' y area actual es '+query1.fieldbyname('Edad').AsString);
if edadant=query1.fieldbyname('Edad').Value then
// showmessage('El dato NO cambio');
begin
cuantos:=cuantos+1;
// cuantosmoda:=cuantos;
showmessage('Cuantos moda trae '+IntToStr(cuantosmoda));
end
else
if cuantos > cuantosmoda then
begin
// showmessage('El dato cambio');
cuantosmoda:=cuantos;
edadmoda:=edadant;
showmessage('Cuantosmoda lleva '+ IntToStr(cuantosmoda));
showmessage('Edadmoda trae '+ IntToStr(edadmoda));
end;
if edadant<>query1.fieldbyname('Edad').Value then
cuantos:=1;
edadant:= query1.fieldbyname('Edad').Value;
query1.Next;
end;
if cuantos>cuantosmoda then
begin
cuantosmoda:=cuantos;
edadmoda:=edadant;
end;
end;
showmessage('Edad moda es '+ IntToStr(edadant)+' y se repite ' + IntToStr(cuantosmoda));
gracias de nuevo
