From a57c29c56af57497b839f6d3fd880da7920538e5 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 6 Jun 2016 14:27:52 +0000
Subject: [PATCH] fpspreadsheet: Fix csv writer ignoring blank cells
 ("WriteBlank")

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4678 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/fpscsv.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpspreadsheet/fpscsv.pas b/components/fpspreadsheet/fpscsv.pas
index 2980c5a66..c338ec5c0 100644
--- a/components/fpspreadsheet/fpscsv.pas
+++ b/components/fpspreadsheet/fpscsv.pas
@@ -291,7 +291,7 @@ procedure TsCSVWriter.WriteBlank(AStream: TStream; const ARow, ACol: Cardinal;
 begin
   Unused(AStream);
   Unused(ARow, ACol, ACell);
-  // nothing to do
+  FCSVBuilder.AppendCell('');
 end;
 
 { Write boolean cell to stream formatted as string }