如何才能把memo里的文字自动转成txt文件哪？

Question

哪位高手能告诉我，如何才能把memo里的文字自动转成txt文件哪？急！拜谢拜谢了！

Answer 1

靠，刚看到就有人回复了。而且想的语句跟我一模一样
memo1.lines.savetofile('c:\a.txt');

Answer 2

对不起，对不起，是我问错了，呵呵，我的意思是，自动创建一个txt文件，然后存到里面去，不好意思，不好意思！

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
 var F: TextFile;
begin
  AssignFile(F, 'NEWFILE.$$$');  //赋值文件名
  Rewrite(F);  //创建文件并打开
  Writeln(F, memo1.text); //在文件中写数据
  CloseFile(F);  //关闭文件
end;

Answer 4

自动创建一个TXT,然后把MEMO的内容存进去?
上面写的就是的啊.

Answer 5

'c:\a.txt'又有文件路径又有文件名

Answer 6

var F1: TextFile; AssignFile(F1, '1.txt');
     try
        Append(F1);
     except
        Rewrite(F1);
     end;
     Write(F1, memo1.lines.text);
     CloseFile(F1);