promedio

[velezbunzl]

ps el problema que tengo ahora es que necesito hacer una diferenciacion de acuerdo a dos radio group ya programe una pequena parte usando arrays pero no se como meter el nuevo tipo de instruccion

aqui esta el codigo



procedure Tfrm_Promedios.Btn_BuscarClick(Sender: TObject);
var
J: Integer;
Promedio_Datos : Double;
Numero_datos_A_Promediar: integer;
begin
Numero_datos_A_Promediar:=0;
promedio_datos:=0;
if ((self.Rdg_Rango_Tiempo.ItemIndex=0)
and(self.Rdg_Tipo_Presion.ItemIndex=0))
then
for J:= 0 to Numero_datos_A_Analizar do
begin
if ( ( Datosmedicion[j].Fecha >= self.Date_Desde.Date)
AND
( Datosmedicion[J].Fecha <= self.DateTime_Hasta.Date )
And
(Datosmedicion[j].TipoMedicion = Sistolica))
then

begin
Promedio_Datos := Promedio_Datos + Datosmedicion[j].ValorMedicion;
Numero_datos_A_Promediar := Numero_datos_A_Promediar + 1;
end
end;
Promedio_Datos := Promedio_Datos/Numero_datos_A_Promediar;
Self.Edt_Promedio.Text := FloatToStr(Promedio_Datos);
Self.Edt_NumeroDatos.Text := IntToStr(Numero_datos_A_Promediar);

end;