Hola nlsgarcia,
Gracias por las aclaraciones, respecto al codigo del mensaje numero 6 (GetLastLine), efectívamente, es el que he tomado como base y he logrado adaptar a la idea que iba buscando.
Muchas gracias :-)
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. |