pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix xlsx reader aborting if an error cell does not contain an error code (see http://forum.lazarus.freepascal.org/index.php/topic,38726.0.html).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6046 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-10-28 20:30:33 +00:00
parent e4a194fd1a
commit b35f362f31
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/source/common/xlsxooxml.pas
View File

@ -784,6 +784,10 @@ begin
AWorksheet.WriteErrorValue(cell, errOverflow)
else if dataStr = '#N/A' then
AWorksheet.WriteErrorValue(cell, errArgError)
else if dataStr = '' then
// rare case...
// see http://forum.lazarus.freepascal.org/index.php/topic,38726.0.html
AWorksheet.WriteBlank(cell)
else
raise EFPSpreadsheetReader.Create(rsUnknownErrorType);
end else