Error en lectura logs texto

[andres1569]

Hola:

Si usas el método LoadFromFile de un objeto TStrings, esos caracteres últimos "despistan" y no se puede leer el archivo. Prueba con este código. En el parámetro Lista puedes pasar la propiedad Lines de un Memo, por ejemplo, para ver el resultado.

procedure LeeArchivo (NomFile: String; Lista: TStrings);
var
  ArchText : TextFile;
  s : String;
begin
  Lista.Clear;
  AssignFile (ArchText, NomFile);
  Reset (ArchText);
  while NOT EOF(ArchText) do
  begin
    ReadLn (ArchText, s);  // leemos una linea
    s := TrimRight(s);     // eliminamos espacios y caracteres de control a la derecha
    Lista.Add (s);         // la añadimos a la lista 
  end;
  CloseFile (ArchText);
end;

Un Saludo