Saber la cantidad de linea que tiene un archivo de texto

[Ledian_Fdez]

Hola chicos.

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

En espera de su ayuda
y gracias de antemano.

[Casimiro Notevi]

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

[Ledian_Fdez]

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

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

Gracias

[Casimiro Notevi]

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:

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]

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.:)

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

assignfile(f,'web.log');
reset(f);
i := 0;
repeat
readln(f);
inc(i);
until eof(f)
closefile(f);