テキストファイルを読み込む

ここでは指定されたファイルをMemoに読み込みます。

■C:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\ファイル名.txtをMemoに読み込む処理
procedure TForm1.Button1Click(Sender: TObject);
Var
　F :TextFile;
　FileData: String;
begin

　Memo1.Clear;
　//ファイル変数とファイルを結びつける
　AssignFile(F,'C:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\ファイル名.txt') ;
　//既存のファイルを開く
　Reset(F);
　//ファイルの最後まで一行づつ読み込む
　While not Eof(F) do
　begin
　　Readln(F, FileData);
　　Memo1.Lines.Add(FileData);
　end;

　//ファイルを閉じる（閉じないとデータが消える場合がある）
　CloseFile(F);

end;


Delphi　Tipsのページへ