Lineas en TXT

[roman]

¡Ah! Claro que si las líneas del archivo son todas de la misma longitud podrías optar por dividir el tamaño del archivo en bytes por la longitud de cada línea. El resultado debe ser el número de líneas.

// Saludos

[joanajj]

Probaré, aunque tendré que buscar una función que me devuelva el tamaño en bytes de un archivo...


Saludos...

[roman]

¿Qué tal algo así?

Código Delphi [-]
(*
Devuelve el número de líneas de un archivo de texto
Las líneas del archivo deben tener todas la misma
longitud (indicada por LineLen)
*)
function LineCount(FileName: String; LineLen: Integer): Integer;
var
  F: File of Byte;
 
begin
  AssignFile(F, FileName);
  Reset(F);
  try
    Result := FileSize(F) div LineLen;
  finally
    CloseFile(F);
  end;
end;

// Saludos

[joanajj]

Gracias, creo que con esto lo soluciono.


Un saludo...