Delphi 在保存对话框中覆盖现有文件

Question

我正在使用 TSaveDialog 组件通过单击按钮来保存文件。但是，我在保存现有文件名时遇到问题。通常，当您想要在 Windows 中保存现有文件时，会弹出一个消息框，询问您是否确实要覆盖该文件。 TSaveDialog 组件的情况并非如此，它会继续写入文件而不询问。

我希望有一个我可以使用的 TSaveDialog 函数或事件，但我还没有看到任何看起来可以处理这个问题的东西。所以可能只是我还没有找到正确的使用方法。如果有事件，我可以使用

if FileExists(saveDialog.FileName) then
  //and so forth

但 TSaveDialog 的事件有 OnCanClose、OnClose、OnFolderChange、OnIncludeItem、OnSelectionChange、OnShow、OnTypeChange...

我的问题是，如何弹出一个消息框来询问用户是否要使用 TSaveDialog 组件覆盖现有文件。谢谢。

Answer 1

在执行对话框之前使用saveDialog.Options := saveDialog.Options + [ofOverwritePrompt]。然后它会询问用户是否要覆盖该文件。

但是您确实知道 TSaveDialog 实际上并没有保存文件，对吧？它只是显示标准的 Windows 文件保存对话框，然后返回用户选择的路径。您必须使用此路径手动保存文件，例如MyStringList.SaveToFile(saveDialog.FileName)。