テキストの行数を数える

解決

BCT  2007-08-31 10:35:21  No: 27584  IP: 192.*.*.*

テキストファイルの行数を、効率よく数える方法を考えています。
ただ数えるだけであれば、以下のソースで十分ですが、
もっと早い方法があればと思っています。
ぜひよろしくお願いいたします。

  AssignFile(TF, 'ファイル.txt');
  Reset(TF);
  intCnt:= 0;
  repeat
    Readln(TF, strBuf);
    inc(intCnt);
  until Eof(TF);
  CloseFile(TF);

編集 削除
HOta  2007-08-31 13:27:17  No: 27585  IP: 192.*.*.*

TStringListを使った場合です。

var
  StringList1:TStringList;
begin
  StringList1:=TStringList.Create;
  Try
    StringList1.LoadFrom('ファイル.txt');
    intCnt:=StringList1.Count; //行数
  Finally
    Freeandnil(StringList1);
  End;
end;
となります。

編集 削除
もにゃ  2007-08-31 16:27:33  No: 27586  IP: 192.*.*.*

何も気にしないならTStringListで充分だと思います。
これ以上なら以前話題になってます。
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=039091

編集 削除
BCT  2007-09-03 10:57:51  No: 27587  IP: 192.*.*.*

HOtaさん、もにゃさん、ご回答ありがとうございます。

もにゃさんのリンクの記事は、まさに探していたものです。
探し方が悪かったみたいですね・・・  感謝です。

編集 削除