promedio

[[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(...)