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;
(* 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;