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

fpspreadsheet: Support "ss:Data" nodes in Excell2003-xml reader.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7029 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-07-13 21:49:31 +00:00
parent b09e7d069b
commit 28fc3e19c4
1 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
components/fpspreadsheet/source/common/xlsxml.pas
View File

@ -219,6 +219,7 @@ var
sv: String;
node: TDOMNode;
err: TsErrorValue;
cell: PCell;
begin
if ANode = nil then
exit;
@ -226,30 +227,32 @@ begin
if nodeName <> 'Cell' then
raise Exception.Create('Only Cell nodes expected.');
cell := sheet.GetCell(ARow, ACol);
node := ANode.FirstChild;
if node = nil then
sheet.WriteBlank(ARow, ACol)
sheet.WriteBlank(cell)
else
while node <> nil do begin
nodeName := node.NodeName;
if nodeName = 'Data' then begin
sv := GetNodeValue(node);
if (nodeName = 'Data') or (nodeName = 'ss:Data') then begin
sv := node.TextContent;
st := GetAttrValue(node, 'ss:Type');
case st of
'String':
sheet.WriteText(ARow, ACol, sv);
sheet.WriteText(cell, sv);
'Number':
sheet.WriteNumber(ARow, ACol, StrToFloat(sv, FPointSeparatorSettings));
sheet.WriteNumber(cell, StrToFloat(sv, FPointSeparatorSettings));
'DateTime':
sheet.WriteDateTime(ARow, ACol, ExtractDateTime(sv));
sheet.WriteDateTime(cell, ExtractDateTime(sv));
'Boolean':
if sv = '1' then
sheet.WriteBoolValue(ARow, ACol, true)
sheet.WriteBoolValue(cell, true)
else if sv = '0' then
sheet.WriteBoolValue(ARow, ACol, false);
sheet.WriteBoolValue(cell, false);
'Error':
if TryStrToErrorValue(sv, err) then
sheet.WriteErrorValue(ARow, ACol, err);
sheet.WriteErrorValue(cell, err);
end;
end;
node := node.NextSibling;