paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Fix also the case that ISBLANK must return FALSE if the argument is an empty string.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6538 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2018-06-26 17:19:22 +00:00
parent fa0cc2f50e
commit cba608d725
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpspreadsheet/source/common/fpsfunc.pas
View File

@ -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;