高手给看看这个代码

Question

procedure TForm1.FileSaveExecute(Sender: TObject);
begin
    if(FileName='未命名文件.txt') then        FileSaveAs1.Execute
    Else
        RichEdit1.Lines.SaveToFile(FileName);
end;我是delphi新手，这个是看书的例子做的文本文件保存的例子
可是代码执行出错。如果是新建文件，再保存就出错了提示”不能创建文件“
save 菜单使用 action manager 中标准的”save“菜单，所以那个”fileSaveas1“就是那个内置的”另存为对话框“
请快速答复

Answer 1

不要使用Action了
就OnClick里RichEdit1.Lines.SaveToFile(‘Text.txt');