Lineas en TXT

[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