Cantidad de líneas de un archivo txt

[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

[dec]

Hola,

Pienso lo mismo que Román, ahora más, porque él lo piensa. A menos que los archivos sean "nuestros", y acaso podamos incluir en ellos cuántas líneas contienen, además del contenido del archivo, de una forma u otra habrá que leer el archivo hasta el final, me temo, puesto que de otra forma no imagino cómo podríamos contar todas sus líneas.

Mú también.

[[egostar]]

Hola

Y en el supuesto caso que se tratara de un achivo con cadenas de una longitud fija? Sin los caracteres de LF y CR?



amúúúú

[[cHackAll]]

Empezado por egostar

Hola

Y en el supuesto caso que se tratara de un achivo con cadenas de una longitud fija? Sin los caracteres de LF y CR?



amúúúú

Eso con un GetFileSize(hFile, nil) div LongitudFija.

Muú !!!

[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?

[[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ú !