テキストファイルに書き込む

ここではMemoに書かれている文字列をC:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\Test.txtに書き込みます。

■Memoに書かれている文字列をC:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\Test.txtに書き込む処理
procedure TForm1.Button1Click(Sender: TObject);
Var
　F :TextFile;
　FileData :String;
　i :Integer;
begin

　//ファイル変数とファイルを結びつける
　AssignFile(F,'C:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\Test.txt') ;
　//ファイルを新規に作成
　Rewrite(F);
　//一行ずつファイルに書き込む
　For i := 0 To Memo1.lines.Count -1 Do
　begin
　　FileData :=Memo1.Lines[i];
　　Writeln(F,FileData);
　end;

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

end;



Delphi　Tipsのページへ



ホーム