Question

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

像windows记事本那样的功能。
procedure TForm1.FormCreate(Sender: TObject);
begin
Savedialog1.Filter :='TXTFile(*.txt)|*.txt|DocFile(*.doc)|*.doc';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if SAvedialog1.Execute then
memo1.Lines.SaveToFile(savedialog1.FileName);
{在这里，如果选择SAvedialog1对话框底部的“保存类型”为‘doc',而在“文件名”栏只写文件名称，不写’doc'后缀的情况下，如何成功另存为'doc'格式？——windows记事本就可以这样}
end;

Answer 1

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

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

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

Answer 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;

Answer 3

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