Delphi sobrescribe el archivo existente en el cuadro de diálogo guardar

Question

Estoy utilizando el componente TSaveDialog para guardar un archivo desde un clic de botón. Sin embargo, tengo problemas para guardar un nombre de archivo existente. En general, cuando desea guardar más de un archivo existente en Windows, aparece un cuadro de mensaje que le pregunta si realmente desea sobrescribir el archivo. Este no es el caso con el componente TSaveDialog y continuará y escribirá sobre el archivo sin preguntar.

Esperaba que hubiera una función o evento de TSaveDialog que podría usar pero no he visto nada que parezca que maneja esto. Entonces podría ser que simplemente no he encontrado el método correcto para usar. Si hay un evento, podría usar

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

pero los acontecimientos TSaveDialog tiene son OnCanClose, OnClose, OnFolderChange, OnIncludeItem, OnSelectionChange, OnShow, OnTypeChange ...

Mi pregunta es, ¿cómo me pop un cuadro de mensaje para preguntar al usuario si desea sobrescribir el archivo existente utilizando el componente TSaveDialog. Gracias.

Answer 1

Utilice saveDialog.Options := saveDialog.Options + [ofOverwritePrompt] antes de ejecutar el cuadro de diálogo. Luego se le preguntará si el usuario desea sobrescribir el archivo o no.

Pero usted sabe que el TSaveDialog en realidad no guarda el archivo, ¿verdad? Simplemente muestra el diálogo estándar Guardar archivo de Windows y luego devuelve la ruta que el usuario eligió. Tienes que guardar el archivo manualmente usando esta ruta, p. MyStringList.SaveToFile(saveDialog.FileName).