Saber la cantidad de linea que tiene un archivo de texto

[Casimiro Noteví]

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

Recuerda que: preguntas distintas en hilos distintos

[ecfisa]

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.

[[Lepe]]

ecfisa, no debes restarle uno al Count jejeje.

[ecfisa]

Empezado por Lepe

ecfisa, no debes restarle uno al Count jejeje.

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

Un saludo.

[santi33a]

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);