From 9af675837a8534a314afbae6f06fe8462d1e8020 Mon Sep 17 00:00:00 2001
From: bigchimp <bigchimp@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 2 Oct 2014 12:22:48 +0000
Subject: [PATCH] * fpspreadsheet: fpsexport: overwrite existing destination
 files.   Matches behaviour of other exporters like dbfexport

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3621 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/fpsexport.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/components/fpspreadsheet/fpsexport.pas b/components/fpspreadsheet/fpsexport.pas
index 8817914eb..f7791597c 100644
--- a/components/fpspreadsheet/fpsexport.pas
+++ b/components/fpspreadsheet/fpsexport.pas
@@ -85,7 +85,6 @@ Const
   SPFSFilter = '*.xls'; //todo: add others?
   
 ResourceString
-  SErrFailedToDeleteFile = 'Failed to delete existing file: %s';
   SFPSDescription = 'Spreadsheet files';
 
 implementation
@@ -140,11 +139,12 @@ end;
 procedure TCustomFPSExport.DoAfterExecute;
 begin
   FRow:=0;
+  // Overwrite existing file similar to how dbf export does it
   case Formatsettings.ExportFormat of
-    efXLS: FSpreadSheet.WriteToFile(FFileName,sfExcel8);
-    efXLSX: FSpreadsheet.WriteToFile(FFilename,sfOOXML);
-    efODS: FSpreadSheet.WriteToFile(FFileName,sfOpenDocument);
-    efWikiTable: FSpreadSheet.WriteToFile(FFileName,sfWikitable_wikimedia);
+    efXLS: FSpreadSheet.WriteToFile(FFileName,sfExcel8,true);
+    efXLSX: FSpreadsheet.WriteToFile(FFilename,sfOOXML,true);
+    efODS: FSpreadSheet.WriteToFile(FFileName,sfOpenDocument,true);
+    efWikiTable: FSpreadSheet.WriteToFile(FFileName,sfWikitable_wikimedia,true);
     else
       ;// raise error?
   end;