Спрашивать о замене файла
В обычном SaveDialog есть свойство OPTIONS и подсвойство OfOverwritePrompt. Если его установить в true, то SaveDialog, если это нужно, будет сам выводить диалог: "Файл уже существует. Заменить его?" (На форму необходимо добавить компонент SaveDialog находится он на вкладке Dialogs) procedure TForm1.FormCreate(Sender: TObject);begin
SaveDialog1.Options := SaveDialog1.Options + [ofOverwritePrompt];
end; procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
