テキストの行数を数える

解決

BCT 2007-08-31 19:35:21 No: 27584

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

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

HOta 2007-08-31 22:27:17 No: 27585

TStringListを使った場合です。

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

もにゃ 2007-09-01 01:27:33 No: 27586

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

BCT 2007-09-03 19:57:51 No: 27587

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

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