Cantidad de líneas de un archivo txt

[Carmelo Cash]

Hola Foro:
Escribo nuevamente este mensaje porque no sé si el que escribí antes no llegó o no lo envié:

El tema es saber la cantidad de líneas que tiene un archivo txt sin leerlo todo.

Actualmente hago:

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

Pero me parece mucha cosa para rescatar este dato, tal vez haya una forma mejor.

Saludos y gracias.

[[Delphius]]

Hola Carmelo Cash,
Sabiendo que estás empleando ese método para abrir archivos, tal vez te interese saber de la función FileSize() que devuelve el "tamaño" en lineas de un archivo.

Saludos,

[Carmelo Cash]

Hola. Gracias por tu ayuda, pero el archivo prueba.txt tiene 32 líneas,
con el procedimiento que uso me dice 32, pero con

Código Delphi [-]
ShowMessage(intToStr( FileSize(Fichero) ));

dice "2" . ¿?

Habrá otro truco?

[[cHackAll]]

Empezado por Delphius

Hola Carmelo Cash,
Sabiendo que estás empleando ese método para abrir archivos, tal vez te interese saber de la función FileSize() que devuelve el "tamaño" en lineas de un archivo.

Saludos,

[roman]

Empezado por Delphius

la función FileSize() que devuelve el "tamaño" en lineas de un archivo.

Devuelve el tamaño en bytes o número de records, pero no de líneas.

// Saludos

[[Delphius]]

Empezado por roman

Devuelve el tamaño en bytes o número de records, pero no de líneas.

// Saludos

¡Tienes razón roman! ¡Que metida de pata que cometí!

Saludos,

[dec]

Hola,

Empezado por Delphius

¡Tienes razón roman! ¡Que metida de pata que cometí!

El que no dice ni mú es acaso quien esté metiendo la pata. En tu caso, Delphius, puede decirse que aventuraste una solución que de improviso no ha resultado correcta.

[[cHackAll]]

Empezado por dec

El que no dice ni mú es acaso quien esté metiendo la pata...

mú múúú !!!

[roman]

Mu

// Saludos