|
En Delphi, una forma sencilla (que seguramente no es la más eficiente) es cargar el archivo en un TStrings utilizando el método LoadFromFile; Una vez cargado en la propiedad Count tienes el número de líneas.
El tiempo aproximado (para que te hagas una idea), en mi ordenador que es normalito (2 ańos de antiguedad) puede ser este:
* Archivo 800Kb - 25.000 líneas aprox. - 30 milésimas.
* Archivo 2,5 Mb - 82.000 líneas aprox. - 60 milésimas
* Archivo 15,7 Mb - 471.000 líneas aprox. - 650 milésimas.
|