Cantidad de líneas de un archivo txt

[[Delphius]]

Empezado por dec

Hola,



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.

Empezado por cHackAll

mú múúú !!!

Empezado por roman

Mu

// Saludos

Muuuuuuu!

Bueno ¿Entonces como queda la cosa? ¿Se puede saber?

Código Delphi [-]
function FileLines(Archivo: string): integer;
var arch: TStrings;
begin
  result := 0;
  arch := TStrings.Create;
  try
    arch.LoadFromFile(Archivo);
    result := arch.Count;
  finally
    arch.Free;
  end;
end;

Saludos,