Averiguar el número de lineas de un archivo de texto

[Lionel]

Pues eso compañeros, quisiera averiguar el numero de lineas de un archivo de texto sin tener que recorrerlo.

Gracias.

[marto]

Wop!

Pues no sé lo que quieres decir con "sin tener que recorrerlo". Si lo que quieres decir es que no quieres tener que programar el recorrido, lo puedes hacer con una StringList:

  var 
	t: TStringList;
  begin
	t := TStringList.Create;
	try
	  t.LoadFromFile('fichero.extension');
	  ShowMessage(IntToStr(t.Count));
	finally
	  t.Free;
	end;
  end;

El problema de este código es que tienes que cargar todo el fichero en memoria. Si el fichero va a ser grande, tardará un poco. Además, para montar la StringList, imagino que también se recorre el fichero.

Si lo que quieres es calcular el número sin abrirlo, eso es más complicado. A mi no se me ocurre cómo poder hacerlo. Si lo decubres, ¡cuéntanoslo!