From cf167af00df10d4e7c37bf2eb308235d31273579 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 17 Feb 2017 23:38:47 +0000
Subject: [PATCH] fpspreadsheet: Fix TsWorksheet.WriteBlank erasing formula
 (see:
 http://forum.lazarus.freepascal.org/index.php/topic,35906.msg238389/topicseen.html)

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

diff --git a/components/fpspreadsheet/source/common/fpspreadsheet.pas b/components/fpspreadsheet/source/common/fpspreadsheet.pas
index 16e295386..101e9c586 100644
--- a/components/fpspreadsheet/source/common/fpspreadsheet.pas
+++ b/components/fpspreadsheet/source/common/fpspreadsheet.pas
@@ -4830,7 +4830,7 @@ end;
 procedure TsWorksheet.WriteBlank(ACell: PCell);
 begin
   if ACell <> nil then begin
-    ACell^.FormulaValue := '';
+    //ACell^.FormulaValue := '';
     if HasHyperlink(ACell) then
       WriteText(ACell, '')  // '' will be replaced by the hyperlink target.
     else