テキストファイルからデータを１行ずつ読むには？

解決

---

テキストファイルよりデータを１行ずつ読み出して処理したいのですが、やり方がわかりませんのでどなたかご教授お願いします。

理想としましては

１．ファイルを読む
２．ファイルの内容を変数に入れる
３．次のレコードを読む
４．ファイル終了なら処理終了

と、いう風に処理したいのです、よろしくお願いいたします。

編集    削除

---

こんな感じです。

procedure TForm1.Button1Click(Sender: TObject);
var
  F:TextFile;
  s:string;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F, OpenDialog1.Filename);
    Reset(F);
    while not Eof(F) do begin
      Readln(F,s);  // 一行読み込み
      Memo1.Lines.Add(s);
    end;
    CloseFile(F);
  end;
end;

編集    削除

---

jokさんどうもありがとうございます。
上記の方法で完璧にいきました！

編集    削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。