schnell Zeilen zählen

[Ghostwalker]

Wenns nur um simple Textdateien geht:

Delphi-Quellcode:

function GetLineCount(AFile:String):Integer;
var
  str : Tstrings;

begin
  str := Tstringlist.create;
  str.loadfromfile(Afile);
  result := str.count;
  str.free;
end;