Cantidad de líneas de un archivo txt

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

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