Saber la cantidad de linea que tiene un archivo de texto
 

Hola chicos.

Como saber la cantidad de lineas que tiene un archivo de texto.

En espera de su ayuda
y gracias de antemano.

Si el archivo de texto lo has cargado, por ejemplo, en un TMemo o un TRichEdit, puedes usar

Código Delphi [-]
memo1.lines.count

Me podrias decir como cargo un archivo de texto en un memo.

Gracias

Código Delphi [-]
memo1.loadfromfile('hola.txt')

Recuerda que: preguntas distintas en hilos distintos ;)

Hola.

Retomando la idea de Casimiro, que es léjos la más simple de implementar y tomando en cuenta que la propiedad Lines del TMemo es de tipo TStrings, podrías hacerte una función que cuente las líneas de cualquier archivo de texto:

Código Delphi [-]
function NumeroDeLineas(Nombre: string): Int64;
begin
  if FileExists(Nombre) then
    with TStringList.Create do
    try
      LoadFromFile(Nombre);
      Result:= Count-1;
    finally
      Free;
    end
  else
    Result:= -1;
end;

Un saludo.

ecfisa, no debes restarle uno al Count jejeje.

Tenés toda razón ;). Se me ha deslizado por la costumbre del uso... :o

Un saludo.:)

Una vez tuve necesidad de contar las lineas tambien, hasta q me calló un archivo de 10 GB, al final me resultó mucho mas rapido hacer un ciclo y contarlas lineas a linea algo así

Código Delphi [-]
assignfile(f,'web.log');
reset(f);
i := 0;
repeat
 readln(f);
 inc(i);
until eof(f)
closefile(f);