promedio

[velezbunzl]

nop el problema ya lo solucione solo faltaba un parentesis, mi problema sigue con el promedio el incremento me dice que no peude asignar el lado izqueirdo, luego que el datono es valido y que la fecha nola bsuca en el documento.

para una mayor comprension de lños que peuden ayudarme pro que es muy dificil asi aqui adjunto el projecto mcuhas gracias de ante mano pro toda la aydua que me han dado hastta ahora ypro la que me peudan brindar

http://rapidshare.com/files/209683011/PIS4.rar.html

[[duilioisola]]

Pues en vez de enviar toda la aplicación, puedes ponernos solo el procedimiento y nos explicas el lugar en donde te da el error.

El texto del error, deberías ponerlo tal cual. Sin traducirlo ni interpretarlo.

En el código que envías no he visto nada que trabaje con TStrinsList (como sugería antes).

Lo único que vi es el procedimiento Action_AbrirExecute que parece estar incompleto.
Aperentemente asignas los valores leidos a un array, pero:
- No se calculan los valores de X ni de Y
- No se calcula el promedio
- Falta el CloseFile(f) para cerrar la lectura del archivo.

[[Chris]]

Tu Código tiene demaciados errores y está un poco dificil de entender. Creo que es mejor que postees el procedimiento que estás utilizando para sacar el 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;