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

fpspreadsheet: Activate virtual reading mode for OOXML reader / fpsspeedtest

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3432 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-08-05 21:49:23 +00:00
parent 7e599ebd07
commit 74f5bf26f5
2 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/examples/fpsspeedtest/mainform.pas
View File

@ -153,12 +153,6 @@ begin
if not CgFormats.Checked[i] then
continue;
// Currently no reader support for xlsx, skip test to avoid the exception.
if SPREAD_FORMAT[i] = sfOOXML then begin
Log := Log + ' n/a ';
continue;
end;
FCurFormat := SPREAD_FORMAT[i];
StatusMsg('Reading ' + GetFileFormatName(FCurFormat));

3
components/fpspreadsheet/xlsxooxml.pas
View File

@ -611,6 +611,9 @@ begin
raise Exception.Create('unknown error type');
end else
raise Exception.Create('Unknown data type');
if FIsVirtualMode then
Workbook.OnReadCellData(Workbook, rowIndex, colIndex, cell);
end;
procedure TsSpreadOOXMLReader.ReadCellXfs(ANode: TDOMNode);