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

fpspreadsheet: Fix crash when reading xlsx with unexpected formatting of column width node. Add "inlineStr" data type to xlsx reader.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4250 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-08-04 19:27:29 +00:00
parent 63f7b01a76
commit ad6ce37f87
1 changed files with 32 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
components/fpspreadsheet/xlsxooxml.pas
View File

@ -556,9 +556,10 @@ var
addr, s: String;
rowIndex, colIndex: Cardinal;
cell, sharedformulabase: PCell;
datanode: TDOMNode;
datanode, tnode: TDOMNode;
dataStr: String;
formulaStr: String;
nodeName: String;
sstIndex: Integer;
number: Double;
fmt: TsCellFormat;
@ -600,10 +601,21 @@ begin
formulaStr := '';
while Assigned(datanode) do
begin
if datanode.NodeName = 'v' then
nodeName := datanode.NodeName;
if nodeName = 'v' then
dataStr := GetNodeValue(datanode)
else
if (boReadFormulas in FWorkbook.Options) and (datanode.NodeName = 'f') then
if nodeName = 'is' then
begin
tnode := datanode.FirstChild;
while Assigned(tnode) do begin
nodename := tnode.NodeName;
if nodename = 't' then
dataStr := dataStr + GetNodeValue(tnode);
tnode := tnode.NextSibling;
end;
end else
if (boReadFormulas in FWorkbook.Options) and (nodeName = 'f') then
begin
// Formula to cell
formulaStr := GetNodeValue(datanode);
@ -685,7 +697,7 @@ begin
);
end;
end else
if s = 'str' then
if (s = 'str') or (s = 'inlineStr') then
// literal string
AWorksheet.WriteUTF8Text(cell, datastr)
else
@ -960,12 +972,16 @@ var
col, col1, col2: Cardinal;
w: Double;
s: String;
nodeName: String;
begin
if ANode = nil then
exit;
colNode := ANode.FirstChild;
while Assigned(colNode) do begin
nodeName := colNode.NodeName;
if nodename = 'col' then
begin
s := GetAttrValue(colNode, 'customWidth');
if s = '1' then begin
s := GetAttrValue(colNode, 'min');
@ -978,6 +994,7 @@ begin
for col := col1 to col2 do
AWorksheet.WriteColWidth(col, w);
end;
end;
colNode := colNode.NextSibling;
end;
end;