关于“保存”和“另存为“，求助！

Question

begin
if savedialog1.Execute then
begin
if fileexists(savedialog1.FileName) then
if messagedlg(format('ok to overwrite %s',
[savedialog1.filename]),mtconfirmation,
mbyesnocancel,0)<>idyes then exit;
richedit1.lines.savetofile(savedialog1.FileName);
//做什么用？注释掉setfilename(savedialog1.FileName);
richedit1.Modified :=false;
end;
end;

Answer 1

我还是不明白，可最初我的程序当中并没有写“另存为”那一段，只写了“保存”的代码，可是会出同样的问题，为什么呢？

Answer 2

另存和保存是一样的，只是标题不一样的控件

Answer 3

保存前，先把旧的文件删掉。

Answer 4

删除旧的文件？本来就没有创建新的文件啊。