promedio

[velezbunzl]

buenas mi cunsulta es la siguiente:

necesito proemdiar varios datos y lo estaba haciendo asi, cuando le doy click a un boton el me guarda lso datos en un text file y a cojo la parte izqueirda de la linea y ese es mi dato x, mi dato y es la parte derecha, pero el text file contiene tambien una fecha que es la del dia en que se realiza el ingreso de datos; la custion central es la siguiente.

como ahcer para que me lea la linea que contiene la fecha mas solo me promedie tres datos esa es una

la otra es que tambien debo ser capaz de elegir entre rangos de fechas asi que si queiro el promedio de las medicioen hechas entre dos fechas como debo hacer???

cree un tipo record para que me tenga en cuenta el numero total de datos a proemdiar mas no se como hacer para que ignore las fechas y si quiero solo los datos correspondientes a la la segudna linea despues de cada fecha como hacer????. no estoy pidiendo que me hagan el trabajo por que asi no funciona y la idea es aprender.

se acepta cualqueir sugerencia con mucho gusto

[[duilioisola]]

Pon un ejemplo de la línea, porque no entiendo bien cual es el formato de cada una.
Si por ejemplo fuera así:

01/01/2009,123.98
02/01/2009,21.32
...

puedes hacerlo de la siguiente manera:
- Lees todo dentro de un TStringList
(SList.LoadFromFile(archivo))
- Te metes dentro de un bucle leyendo cada linea
(for i := 0 to SList.Lines.Count -1)
- De cada línea lees las partes
(
fecha := StringToDateTime(copy(SList.Lines[i],1,10))
dato := StrToInt(copy(SList.Lines[i],12,10 {longitud del campo}))
)
- Con un if verificas si la fecha está dentro del rango a promediar
(if ((fecha>=DesdeFecha) and (fecha<=HastaFecha)) then)

Código Delphi [-]
SList := TStringList.Create;
try
   //Cargo el archivo
   SList.LoadFromFile(archivo);
   //Empiezo el bucle
   for i := 0 to SList.Lines.Count -1 do
   begin
      //Extraigo informacion
      fecha := StringToDateTime(copy(SList.Lines[i],1,10))
      dato := StrToInt(copy(SList.Lines[i],12,10 {longitud del campo}))
      //Verifico rango
      if ((fecha>=DesdeFecha) and (fecha<=HastaFecha)) then
      begin
         //Si está en el rango acumulo
         Inc(cantidad);
         Suma := Suma + Dato;
      end;
   end;
   //Finalmente calculo el promedio
   Promedio := Suma / cantidad;
finally
   SList.Free;
end;

[velezbunzl]

el formato es asi dato1-dato2; fecha muchas gracias

[[duilioisola]]

dato1-dato2; fecha

Entonces debes buscar la posición de - (el menos) y leer este dato en una variable mediante desde la posición 1 hasta la posición encontrada.
Luego buscas la posición del ; (punto y coma) y extraes el dato2
Finalmente, desde ; hasta el final será la fecha.

Código Delphi [-]
   PosMenos := Pos('-',SList.Lines[i]);
   PosPuntoYComa := Pos(';',SList.Lines[i]);
   //Desde el principo 
   Dato1 := Copy(SList.Lines[i], 1, PosMenos);
   //Desde la posición de - 
   Dato1 := Copy(SList.Lines[i], PosMenos, PosPuntoYComa-PosMenos);
   //Desde la posición de ;
   Fecha := Copy(SList.Lines[i], PosPuntoYComa, Length(SList.Lines[i]-PosPuntoYComa));

[velezbunzl]

muchas gracias por tu ayuda me ha servido de mucho pero aun me saca u nerror al decirme que SList.lines no es un identificador valido

[[duilioisola]]

Ahí me he equivocado... lo escribí directamente en el foro, sin probarlo en el IDE de Delphi.

Los TStringList no tienen la propiedad "Lines". Puedes acceder directamente a cada String de la lista mediante un índice.

Quedría así:

Código Delphi [-]
   PosMenos := Pos('-',SList[i]);

[velezbunzl]

yop se que ya me volvii canson con esto y de verdad perdon peroe s que mi asesor sugirio otro metodo apra guardar el texto y la verdad no me sirve por que es con el rewrite(F) y siemrpe solo puedo guardar una medicion por vez y ahora cuando trato tu metodo de leer que es mucho mas facil ahi un error.

Z := trim(Copy(SList[i], k, Length(SList[i]-k)));

donde me dice que lso enteros y las cadenas son incompatibles y no se que hacer para solucioanr el error

[[duilioisola]]

SList[i] es un string.
Copy (...) devuelve un string.
Trim (...) devuelve un string.
Z, por lo que dices debe ser un entero.
Debes convertir el tipo de dato con la función StrToInt(...)

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