delphi保存memo中的文本为文件，保存、另存为分别怎么写

2025-01-04 10:35:03

推荐回答（3个）

回答1：

保存，
memo1.Lines.SaveToFile(‘打开文件时的路径文件名’);

另存，
memo1.Lines.SaveToFile(opendialog的新路径文件名);

回答完毕，谢谢。。。。。。。

回答2：

procedure TForm1.Button2Click(Sender: TObject);
var docname: string;
begin
if SAvedialog1.Execute then
begin
if rightstr(savedialog1.FileName, 4) <> '.doc' then
docname := savedialog1.FileName + '.doc';
memo1.Lines.SaveToFile(docname);
end;
end;

回答3：

保存文件名相同,肯定被无声覆盖了,你试着把"文本名称.TXT"的名字前面用日期,精确到秒的日期来试一下作为文件名试试,或者找D的参考文档看看SaveToFile()的参数