テキストファイルに書き込む ここでは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; //ファイル