Cantidad de líneas de un archivo txt

[[Delphius]]

Empezado por Carmelo Cash

Hola:
Muchas gracias a los que participaron, pero entonces mi código no es una burrada?

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); Var Fichero: TextFile; Linea: String; Contador: integer; begin Contador :=0; AssignFile(Fichero,'C:\Prueba.txt'); Reset(Fichero); While Eof(Fichero)=False Do Begin Readln(Fichero,Linea); Inc(Contador); end; Closefile(Fichero); ShowMessage(IntToStr(Contador)); // << Cantidad de Líneas



Lo dejo así, y al que me critique le digo... Mu?

Efectivamente, no es una burrada. Es una solución.
Ahora, si te interesa... Delphi cuenta con unas clases que te pueden ser de mucha ayuda para abrir, guardar, y editar archivos. En un ejemplo que mostré anteriormente hice uso de la clase TStrings.
Además de poder trabajar con el archivo, te evitarás tener que ir contando... esta clase ya cuenta con la propiedad Count que te devolverá la cantidad de lineas.

Para saber más sobre la clase puedes buscar en los foros, que se ha comentado al respecto. Y no te olvides de leer la ayuda que ofrece Delphi.

Saludos,

[[cHackAll]]

Mucha razón Delphius pero me pregunto cuál sera más optima; TextFile vs TStrings (para este caso )

mú !

[MAXIUM]

Se me ocurre que si en en caso de que cada liena de texto sea igual... en longitud por lo menos, obten el tamaño del archivo con solo una línea. Luego cuando tengas el FICHERO con todas sus lineas obtines el valor total con filesize y lo divides por el de una línea.

[[Delphius]]

Empezado por cHackAll

Mucha razón Delphius pero me pregunto cuál sera más optima; TextFile vs TStrings (para este caso )

mú !

Hola Javier,
No más daba una idea. Al menos para mi es lo más fácil y rápido de emplear. ¿Tienes otra en mente? Porque me gustaría saber a que te refieres.

Ahora si quieres, propongo a TStringStream

Saludos,

[[cHackAll]]

Empezado por Delphius

Hola Javier,
No más daba una idea. Al menos para mi es lo más fácil y rápido de emplear. ¿Tienes otra en mente? Porque me gustaría saber a que te refieres.

Ahora si quieres, propongo a TStringStream

Saludos,

Si, muchas veces sacrificamos la optimizacion por legibilidad y facilidad...

que si tengo otra idea? bueno si pero ese no es el caso... solo quise filosofar un poco

[Carmelo Cash]

Entonces me planto firme con mi código, ya que los archivos tienen 500,000 y 800,000 líneas, y que cargarlos a un TStrings para solmente contar as líneas me parece demaciado utilización de memoria.

Gracias a todos. Mu mu.

"La vaca es un animal TODO FORRADO DE CUERO!!! "

[[Delphius]]

Empezado por Carmelo Cash

Entonces me planto firme con mi código, ya que los archivos tienen 500,000 y 800,000 líneas, y que cargarlos a un TStrings para solmente contar as líneas me parece demaciado utilización de memoria.

Gracias a todos. Mu mu.

"La vaca es un animal TODO FORRADO DE CUERO!!! "

Si lo único que te interesa es contar lineas, y deseas evitarte unos bytes por crear un objeto... Pues tal vez si sea un desperdicio.

Ahora, si vas a estar haciendo muchas operaciones sobre archivos, al menos a mi, el TStrings me sirve puesto que posee los métodos necesarios para hacer muchas operaciones con archivos.
Y si es un tanto preocupante el uso de memoria, y rapidez tal vez, tal vez algún TStream pueda ser mejor.

Saludos,

[roman]

Empezado por Delphius

Si lo único que te interesa es contar lineas, y deseas evitarte unos bytes por crear un objeto... Pues tal vez si sea un desperdicio.

Hombre, con 800,000 líneas no estamos hablando de "unos bytes", sino de por lo menos 2*(800,000) + "unos bytes" bytes.

// Saludos