Buenas,
He probado el código que proponias, sin embargo al ejecutarlo sobre un archivo abierto de log se "queja" de que está abierto por otra aplicación y no puede continuar..... seguiré probando el resto de vuestras propuestas :-)
Saludos.
Cita:
Empezado por nlsgarcia
paquechu,
Un String en Delphi 7 ( AnsiString, WideString) tiene un tamaño máximo de 2 GB, revisa este link: Limitation of TStringList.
EL código propuesto debería funcionar correctamente en archivos de texto que no sean de un tamaño notable (Logs rotativos), el ejemplo mencionado de 2.000.000 de lineas de texto fue solo a efectos de prueba de la función.
Te sugiero revisar detalladamente el código del Msg #6 ( function GetLastLine), el código es altamente eficiente dado que solo obtiene la última línea del archivo de forma directa, lo cual la hace ideal como parte de un control TTimer y sin sobrecarga de recursos. Como comentario, funciono de forma optima con el archivo de pruebas mencionado.
Espero sea útil 
Nelson. |