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

fpspreadsheet: Write text format to ods, xlsx, biff8 and biff5

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4539 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-03-10 10:43:44 +00:00
parent c8d5e0f95a
commit e4946cf801
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/fpsopendocument.pas
View File

@ -906,6 +906,9 @@ begin
' ': Result := Result + '<number:text><![CDATA[ ]]></number:text>'; ' ': Result := Result + '<number:text><![CDATA[ ]]></number:text>';
else Result := Result + '<number:text>' + Elements[el].TextValue + '</number:text>'; else Result := Result + '<number:text>' + Elements[el].TextValue + '</number:text>';
end; end;
nftTextFormat:
Result := Result + '<number:text-content />';
end; end;
inc(el); inc(el);

2
components/fpspreadsheet/xlscommon.pas
View File

@ -846,7 +846,7 @@ begin
AList.Add('[h]:nn:ss'); // 46 AList.Add('[h]:nn:ss'); // 46
AList.Add('nn:ss.z'); // 47 AList.Add('nn:ss.z'); // 47
AList.Add('##0.0E+00'); // 48 AList.Add('##0.0E+00'); // 48
AList.Add(''); // 49: @ ("Text") not supported AList.Add('@'); // 49 "Text" format
for i:=50 to ALastIndex do AList.Add(''); // not supported/used for i:=50 to ALastIndex do AList.Add(''); // not supported/used
end; end;