From 7e7044bb6fb9accec694800d4024d7ce9afafb6f Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 26 Oct 2017 07:54:09 +0000
Subject: [PATCH] fpspreadsheet: Fix parameter AOverwriteExisting in
 TsWorkbook.WriteToFile.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6042 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../source/common/fpsreaderwriter.pas         | 23 ++++++++-----------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/components/fpspreadsheet/source/common/fpsreaderwriter.pas b/components/fpspreadsheet/source/common/fpsreaderwriter.pas
index ec61344fc..1e904a4e1 100644
--- a/components/fpspreadsheet/source/common/fpsreaderwriter.pas
+++ b/components/fpspreadsheet/source/common/fpsreaderwriter.pas
@@ -767,28 +767,25 @@ end;
 procedure TsCustomSpreadWriter.WriteToFile(const AFileName: string;
   const AOverwriteExisting: Boolean = False; AParams: TsStreamParams = []);
 var
-  OutputFile: TStream;
-  lMode: Word;
+  OutputStream: TStream;
 begin
-  if AOverwriteExisting then
-    lMode := fmCreate or fmOpenWrite
-  else
-    lMode := fmCreate;
+  if not AOverwriteExisting and FileExists(AFileName) then
+    raise EFCreateError.CreateFmt(rsFileAlreadyExists, [AFileName]);
 
   if (boFileStream in FWorkbook.Options) then
-    OutputFile := TFileStream.Create(AFileName, lMode)
+    OutputStream := TFileStream.Create(AFileName, fmCreate)
   else
   if (boBufStream in Workbook.Options) then
-    OutputFile := TBufStream.Create(AFileName, lMode)
+    OutputStream := TBufStream.Create(AFileName, fmCreate)
   else
-    OutputFile := TMemoryStream.Create;
+    OutputStream := TMemoryStream.Create;
 
   try
-    WriteToStream(OutputFile, AParams);
-    if OutputFile is TMemoryStream then
-      (OutputFile as TMemoryStream).SaveToFile(AFileName);
+    WriteToStream(OutputStream, AParams);
+    if OutputStream is TMemoryStream then
+      (OutputStream as TMemoryStream).SaveToFile(AFileName);
   finally
-    OutputFile.Free;
+    OutputStream.Free;
   end;
 end;