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

fpspreadsheet: Reading of text format for ods and all Excel (except for biff2)

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

5
components/fpspreadsheet/fpsopendocument.pas
View File

@ -925,6 +925,9 @@ begin
else else
if (Kind * [nfkDate, nfkTime] = [nfkTime]) then if (Kind * [nfkDate, nfkTime] = [nfkTime]) then
mask := '<number:time-style style:name="%s"%s>%s%s</number:time-style>' mask := '<number:time-style style:name="%s"%s>%s%s</number:time-style>'
else
if (Kind = [nfkText]) then
mask := '<number:text-style style:name="%s"%s>%s%s</number:text-style>'
else else
mask := '<number:number-style style:name="%s"%s>%s%s</number:number-style>'; mask := '<number:number-style style:name="%s"%s>%s%s</number:number-style>';
@ -2877,7 +2880,7 @@ procedure TsSpreadOpenDocReader.ReadNumFormats(AStylesNode: TDOMNode);
end else end else
if nodeName = 'number:text-content' then if nodeName = 'number:text-content' then
begin begin
// ??? nfs := nfs + '@';
end else end else
if nodeName = 'number:text' then if nodeName = 'number:text' then
begin begin