[DUG]: Number of lines in text file

[Sergei Stenkov]

I need to get the number of lines/records in a text file
Using this:
  while not Eof(F) do begin
    ReadLn(F);
    Inc(iRows);
  end;
gets me that number, but is rather slow if say I run it against a file with
a few hundreds of thousand lines.

I wonder if there is a more efficient way of doing the same?

Thank you,
Sergei

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"