promedio

[velezbunzl]

mira yo lo que tengo es uan ventana dodne ingreso los datos y estos me quedan en un archivo de texto ahi esta el problema uno por que con el rewrite me sobreescribe cada vez que le doy salvar, luego debo seleccioanr entre dos fechas y sacar un proemdio de todos los datos o de otros tres tipos de datos que soin, mañana, tarde, noche

[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;