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

解決

英国屋 2004-03-18 00:12:23 No: 7731

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

理想としましては

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

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

jok 2004-03-18 00:51:25 No: 7732

こんな感じです。

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;

英国屋 2004-03-18 02:32:10 No: 7733

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