From cba608d725888686c6dc4a85eac3ec6294bdbe99 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 26 Jun 2018 17:19:22 +0000
Subject: [PATCH] fpspreadsheet: Fix also the case that ISBLANK must return
 FALSE if the argument is an empty string.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6538 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/source/common/fpsfunc.pas | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/components/fpspreadsheet/source/common/fpsfunc.pas b/components/fpspreadsheet/source/common/fpsfunc.pas
index ae3b8641b..7371636f6 100644
--- a/components/fpspreadsheet/source/common/fpsfunc.pas
+++ b/components/fpspreadsheet/source/common/fpsfunc.pas
@@ -1775,15 +1775,14 @@ procedure fpsISBLANK(var Result: TsExpressionResult; const Args: TsExprParameter
 var
   cell: PCell;
 begin
+  Result := BooleanResult(false);
   case Args[0].ResultType of
     rtEmpty : Result := BooleanResult(true);
-    rtString: Result := BooleanResult(Args[0].ResString = '');
+//    rtString: Result := BooleanResult(Args[0].ResString = '');  --> Excel returns false here!
     rtCell  : begin
                 cell := ArgToCell(Args[0]);
                 if (cell = nil) or (cell^.ContentType = cctEmpty) then
-                  Result := BooleanResult(true)
-                else
-                  Result := BooleanResult(false);
+                  Result := BooleanResult(true);
               end;
   end;
 end;