From 96ceb0a29627b413d8eede2a876eaff81c54aff1 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 18 Jan 2016 13:35:48 +0000
Subject: [PATCH] fpspreadsheet: Make sure that formulas are erased when new
 cell values are written by WorksheetGrid.Cells into cells containing
 formulas.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4432 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../fpspreadsheet/fpspreadsheetgrid.pas       | 63 +++++++++++--------
 1 file changed, 36 insertions(+), 27 deletions(-)

diff --git a/components/fpspreadsheet/fpspreadsheetgrid.pas b/components/fpspreadsheet/fpspreadsheetgrid.pas
index b55db8340..b9ccd7d7b 100644
--- a/components/fpspreadsheet/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/fpspreadsheetgrid.pas
@@ -4452,35 +4452,44 @@ begin
   end else
     fmt := nil;
 
-  if VarIsNull(AValue) then
-    Worksheet.WriteBlank(r, c)
-  else
-  if VarIsType(AValue, varDate) then
-    Worksheet.WriteDateTime(r, c, VarToDateTime(AValue))
-  else
-  if VarIsNumeric(AValue) then begin
-    if (cell <> nil) then begin
-      if IsDateTimeFormat(nfp) then
-        Worksheet.WriteDateTime(cell, VarToDateTime(AValue))
-        {
-      else if IsBoolFormat(nfp) then
-        Worksheet.WriteBoolValue(cell, not (AValue=0) )
-      else if IsErrorFormat(nfp) then
-        Worksheet.WriteErrorValue(r, c, round(AValue));
-        }
-      else
-        Worksheet.WriteNumber(cell, AValue);
-    end else
-      Worksheet.WriteNumber(r, c, AValue);
+  if VarIsNull(AValue) then begin
+    cell := Worksheet.WriteBlank(r, c);
+    if cell <> nil then cell^.FormulaValue := '';
   end else
-  if VarIsBool(AValue) then
-    Worksheet.WriteBoolValue(r, c, AValue)
-  else
-  if VarIsStr(AValue) then begin
+  if VarIsStr(AValue) then
+  begin
     s := VarToStr(AValue);
-    if (s[1] = '=') then
-      Worksheet.WriteFormula(r, c, Copy(s, 2, Length(s)), true) else
-      Worksheet.WriteCellValueAsString(r, c, s);
+    if s[1] = '=' then
+    begin
+      Worksheet.WriteFormula(r, c, Copy(s, 2, Length(s)), true);
+      exit;
+    end;
+    Worksheet.WriteCellValueAsString(r, c, s);
+    cell^.FormulaValue := '';
+  end else
+  begin
+    if cell <> nil then
+      cell^.FormulaValue := '';
+    if VarIsType(AValue, varDate) then
+      Worksheet.WriteDateTime(r, c, VarToDateTime(AValue))
+    else
+    if VarIsNumeric(AValue) then begin
+      if (cell <> nil) then begin
+        if IsDateTimeFormat(nfp) then
+          Worksheet.WriteDateTime(cell, VarToDateTime(AValue))
+          {
+        else if IsBoolFormat(nfp) then
+          Worksheet.WriteBoolValue(cell, not (AValue=0) )
+        else if IsErrorFormat(nfp) then
+          Worksheet.WriteErrorValue(r, c, round(AValue));
+          }
+        else
+          Worksheet.WriteNumber(cell, AValue);
+      end else
+        Worksheet.WriteNumber(r, c, AValue);
+    end else
+    if VarIsBool(AValue) then
+      Worksheet.WriteBoolValue(r, c, AValue)
   end;
 end;