pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* fpspreadsheet: fpsexport: overwrite existing destination files.

Browse Source 
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
This commit is contained in:
bigchimp
2014-10-02 12:22:48 +00:00
parent 66a6f32eb3
commit 9af675837a
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpspreadsheet/fpsexport.pas
View File

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