From 83268bfd02220a870bdca543ab2243be972000ab Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 28 Sep 2021 22:15:10 +0000
Subject: [PATCH] fpspreadsheet: Add TsWorksheetDataset.Flush to write a
 spreadsheet file to disk.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8100 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../source/dataset/fpsdataset.pas             | 23 ++++++++-----------
 1 file changed, 9 insertions(+), 14 deletions(-)

diff --git a/components/fpspreadsheet/source/dataset/fpsdataset.pas b/components/fpspreadsheet/source/dataset/fpsdataset.pas
index 380443d33..f85bf7ca3 100644
--- a/components/fpspreadsheet/source/dataset/fpsdataset.pas
+++ b/components/fpspreadsheet/source/dataset/fpsdataset.pas
@@ -203,6 +203,7 @@ type
       const AWorkbookFileName, ASheetName: String);
     function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; override;
     procedure CreateTable;
+    procedure Flush;
     function GetFieldData(Field: TField; Buffer: Pointer): Boolean; override;
     function Locate(const KeyFields: String; const KeyValues: Variant;
       Options: TLocateOptions): boolean; override;
@@ -1063,18 +1064,15 @@ begin
   end;
 end;
 
-(*
-// Removes characters from AText which would make it an invalid fieldname.
-function TsWorksheetDataset.FixFieldName(const AText: String): String;
-var
-  ch: char;
+procedure TsWorksheetDataset.Flush;
+const
+  OVERWRITE = true;
 begin
-  Result := '';
-  for ch in AText do
-    if (ch in ['A'..'Z', 'a'..'z', '0'..'9']) then
-      Result := Result + ch;
+  if FAutoFileFormat then
+    FWorkbook.WriteToFile(FFileName, OVERWRITE)
+  else
+    FWorkbook.WriteToFile(FFileName, FFileFormat, OVERWRITE);
 end;
-*)
 
 procedure TsWorksheetDataset.FreeBlobPointers(Buffer: TRecordBuffer);
 var
@@ -1389,10 +1387,7 @@ begin
   FIsOpen := false;
 
   if FModified then begin
-    if FAutoFileFormat then
-      FWorkbook.WriteToFile(FFileName, true)
-    else
-      FWorkbook.WriteToFile(FFileName, FFileFormat, true);
+    Flush;
     FModified := false;
   end;
   FreeWorkbook;