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

ここでは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のページへ



ホーム