Hola a todos, necesito de su ayuda, estoy intentando utilizar un arreglo dentro de una tabla, es una tabla con muchos datos, pero necesito sacar el promedio cada 24 datos y así sucesivamente hasta llegar al último registro, necesito guardarlos en una tabla para hacer comparaciones, pero el tema de los arreglos aún me cuesta trabajo, ojalá me puedan ayudar o sugerir algo.
Gracias. Saludos!!
Código Delphi
[-]
Type
TPacasRecord = record
Banco:Integer;
Bale:string;
MicProm:real;
RdProm:real;
MasBProm:real;
end;
Procedure Proceso(pacarray:array of tpacasrecord);
var
pacarray:array [1..1000] of tpacasrecord;
Table1.ACTIVE:=TRUE;
TABLE1.OPEN;
function Sumas(sumamic, sumard, sumamasb:real):TPacasRecord;
begin
sumamic:=sumamic+TABLE1.FieldByName('Mic').Asfloat;
sumard:=sumard+TABLE1.FieldByName('Rd').Asfloat;
sumamasb:=sumamasb+TABLE1.FieldByName('Masb').Asfloat;
end;
Procedure Proceso(pacarray:array of tpacasrecord);
IF I=(Conta*24) THEN
BEGIN
PACARRAY[1].BANCO:=Conta;
PACARRAY[1].MICPROM:=sumamic/24;
PACARRAY[1].RDPROM:=sumard/24;
PACARRAY[1].MASBPROM:=sumamasb/24;
TPacasRecord.Banco:=Conta;
TPacasRecord.Banco:=MICPROM;
TPacasRecord.Banco:=RDPROM;
TPacasRecord.Banco:=MASBPROM;
Conta:=Conta+1;
sumamic:= 0;
sumard:= 0;
sumamasb:= 0;
end;
table1.close;
table1.active:=false;
end;