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]);