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 var
cell: PCell; cell: PCell;
begin begin
Result := BooleanResult(false);
case Args[0].ResultType of case Args[0].ResultType of
rtEmpty : Result := BooleanResult(true); rtEmpty : Result := BooleanResult(true);
rtString: Result := BooleanResult(Args[0].ResString = ''); // rtString: Result := BooleanResult(Args[0].ResString = ''); --> Excel returns false here!
rtCell : begin rtCell : begin
cell := ArgToCell(Args[0]); cell := ArgToCell(Args[0]);
if (cell = nil) or (cell^.ContentType = cctEmpty) then if (cell = nil) or (cell^.ContentType = cctEmpty) then
Result := BooleanResult(true) Result := BooleanResult(true);
else
Result := BooleanResult(false);
end; end;
end; end;
end; end;