1。
var
tfile:textfile;
//txt文件必须保存在当前目录下�
bedin
AssignFiletfile,extractfiledirapplication.ExeName)+'\test.txt');
Append(tfile);
Writeln(tfile,memo1.lines.text);
Closefile(tfile);
end;
2。memo1.lines.savetofile('路径\test.txt');
似乎有savetofile方法啊
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024