Schnell Anzahl der Zeilen einer Textfile ermitteln?

[MaBuSE]

Zitat von Kedariodakon:

Werd ich versuchen

Hab mal ein Bsp. von Luckie als Grundlage genommen:
( http://www.delphipraxis.net/internal...=295199#295199 )

Eine Datei >2,5 MByte brauchte bei mir 7 Sek.
(Keine Ahnung wie viel das schneller wird, wenn der Buffer vergrößert wird)

Delphi-Quellcode:

function CountCR(const AFileName: string):Integer;
var
  Fs: TFileStream;
  BytesRead: Integer;
  Buffer: char;
  CR: Integer;
begin
  CR := 0;
  Fs := TFileStream.Create(AFileName, fmOpenRead + fmShareDenyNone);
  try
    repeat
      BytesRead := Fs.Read(Buffer, Length(Buffer));
       if Buffer = #13 then Inc(CR)
     until BytesRead < sizeof(Buffer);
  finally
    Fs.Free;
    Result := CR;
  end;
end;