Cantidad de líneas de un archivo txt

[roman]

Empezado por Delphius

la función FileSize() que devuelve el "tamaño" en lineas de un archivo.

Devuelve el tamaño en bytes o número de records, pero no de líneas.

// Saludos

[[Delphius]]

Empezado por roman

Devuelve el tamaño en bytes o número de records, pero no de líneas.

// Saludos

¡Tienes razón roman! ¡Que metida de pata que cometí!

Saludos,

[dec]

Hola,

Empezado por Delphius

¡Tienes razón roman! ¡Que metida de pata que cometí!

El que no dice ni mú es acaso quien esté metiendo la pata. En tu caso, Delphius, puede decirse que aventuraste una solución que de improviso no ha resultado correcta.

[[cHackAll]]

Empezado por dec

El que no dice ni mú es acaso quien esté metiendo la pata...

mú múúú !!!

[roman]

Mu

// Saludos

[dec]

Hola,

Hala, ahora todos a decir mú... ¡que no lo decía yo por tanto, ni por vosotros! ¡Aludidos! ¡Desvirtuadores!

[[Delphius]]

Empezado por dec

Hola,



El que no dice ni mú es acaso quien esté metiendo la pata. En tu caso, Delphius, puede decirse que aventuraste una solución que de improviso no ha resultado correcta.

Empezado por cHackAll

mú múúú !!!

Empezado por roman

Mu

// Saludos

Muuuuuuu!

Bueno ¿Entonces como queda la cosa? ¿Se puede saber?

Código Delphi [-]
function FileLines(Archivo: string): integer;
var arch: TStrings;
begin
  result := 0;
  arch := TStrings.Create;
  try
    arch.LoadFromFile(Archivo);
    result := arch.Count;
  finally
    arch.Free;
  end;
end;

Saludos,

[roman]

Empezado por Delphius

Bueno ¿Entonces como queda la cosa? ¿Se puede saber?

Pues bueno, yo no crea que haya muchas opciones para contar las líneas; no es una propiedad que se guarde como parte del archivo. A fin de cuentas un archivo de texto no es más que una secuencia de caracteres siendo las parejas #13#10 las que "marcan" una nueva línea, así que pienso que cualquier método en el fondo tiene que abrir el archivo y contar cuantas parejas de éstas hay.

Mu.

// Saludos