[Delphi]ファイルの読込み　AssignFile, Readln

※全てのDelphi(楽天市場で探す ・ amazonで探す)で動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル　※説明に必要な部分しか記述していません

概要

ここではAssignFileでテキストファイルを変数(TextFile型)に読み込み、Readlnで１行ごと抜き出し、それをメモ(TMemo)に表示しています。

下記のテキストファイルを準備し

フォーム上に TMemo を配置し、下記を実行すると

procedure TForm1.Button1Click(Sender: TObject);

var
    w_line: String;
    i_f: TextFile;

begin
    Memo1.Clear;

    //ファイルと変数との関連付けです
    AssignFile(i_f, 'ファイルの絶対パス\test.txt');

    //ファイルを開きます
    Reset(i_f);



 
    //whileは 条件式が True の間、繰り返します。
    //下記の場合　EOFではない間、繰り返し　です。

    while Not(Eof(i_f)) do begin
        Readln(i_F, w_line);
        Memo1.Lines.Add(w_line);

    end;


    //ファイル閉じて、関連付けを終了します
    CloseFile(i_f);


end;

このようになります。

公式サイト

AssignFile

Readln

TextFile