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

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

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

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

textfile-sample-201603

フォーム上に 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;

このようになります。

delphi-readln