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




トップページへ

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

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

 

概要

ここではAssignFileでテキストファイルを変数(TextFile型)に読み込み、Readlnで1行ごと抜き出し、それをメモ(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

 

【PR】 Delphi (amazon) *見つからない場合があります

【PR】 Delphi (楽天市場) *見つからない場合があります




ほかの Delphi の記事

[Delphi]not演算子の使用例

[Delphi]例外処理 try except

[Delphi]入力ダイアログボックス InputBox

[Delphi]動的配列 array of

[Delphi]型変換 IntToStr, CurrToStr