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

fpspreadsheet: Write cell strings to BIFF8 SST only if strings are longer than 255 characters --> speed-up

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6464 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-06-05 08:43:41 +00:00
parent 8635510f53
commit f4154f2265
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpspreadsheet/source/common/xlsbiff8.pas
View File

@ -2821,6 +2821,9 @@ begin
Continue;
if (cell^.UTF8StringValue = '') then
Continue;
// Only strings longer than 255 characters will be put into SST (speed)
if Length(cell^.UTF8StringValue) < 256 then
continue;
idx := IndexOfSharedString(cell^.UTF8StringValue, cell^.RichTextParams);
inc(FNumStrings);
if idx > -1 then
@ -3715,8 +3718,12 @@ begin
if (ARow >= FLimitations.MaxRowCount) or (ACol >= FLimitations.MaxColCount) then
exit;
if Length(ACell^.UTF8StringValue) < 256 then
idx := -1 // Strings shorter than 256 were not stored in SST.
else
idx := IndexOfSharedString(ACell^.UTF8StringValue, ACell^.RichTextParams);
// If string is in SST write a LABELSST record
idx := IndexOfSharedString(ACell^.UTF8StringValue, ACell^.RichTextParams);
if idx > -1 then begin
recSST.RecordID := WordToLE(INT_EXCEL_ID_LABELSST);
recSST.RecordSize := WordToLE(SizeOf(recSST) - SizeOf(TsBiffHeader));