stringlistでのテキストファイル処理について (ID:44450)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 var slst : TStringList; i : Integer; s : String; begin slst := TStringList.Create; slst.LoadFormFile('処理するファイルパス'); for i := 0 to slst.Count -1 do begin s := slst[i]; {sの処理} end; slst.Free; end; 上記のようにstringlistにテキストファイルを読み込ませてます。 テキストファイルは固定長のファイルです。 最終行まで問題なく書込がされているファイルでしたら、 全く問題ないのですが、 内容最終行に1行余計な行がプラスされている状態(1バイトスペース)で 読み込むと、 なぜか3万数行あるはずが168行しか読み込みません。 件数はstringlist.countです。 回避方法があれば教えていただきたくお願いします。 ちなみに AssignFile(tf, '処理するファイルパス'); Reset(tf); の方法でしたら、問題なく読込出来ました。