Schnell Anzahl der Zeilen einer Textfile ermitteln?

[yankee]

Mal ganz einfach:

Delphi-Quellcode:

function getlength(const FileName: TFileName)
var datei:textfile
    str:string;
begin
  result =0;
  assignfile(datei, FileName);
  reset(datei);
  while not eof(datei) do
  begin
    readln(datei, str);
    inc(result);
  end;
end;