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

fpspreadsheet: Fix incorrect "Continue" in TsSpreadOOXMLReader.ReadFrom(Stream|File)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4242 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-08-03 21:12:11 +00:00
parent bfd19235c6
commit 31090f663a
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/xlsxooxml.pas
View File

@ -2004,7 +2004,8 @@ begin
fn_comments := 'comments1.xml' fn_comments := 'comments1.xml'
else else
// this sheet does not have any cell comments // this sheet does not have any cell comments
continue; fn_comments := '';
//continue;
// Extract texts from the comments file found and apply to worksheet. // Extract texts from the comments file found and apply to worksheet.
if fn_comments <> '' then if fn_comments <> '' then
@ -2161,7 +2162,8 @@ begin
fn_comments := 'comments1.xml' fn_comments := 'comments1.xml'
else else
// This sheet does not have any cell comments at all // This sheet does not have any cell comments at all
continue; fn_comments := '';
//continue;
finally finally
XMLStream.Free; XMLStream.Free;
end; end;