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

fpspreadsheet: Fix crash in the biff8 reader's FreeSharedStringTable when no SST is used.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6912 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-13 15:43:06 +00:00
parent 505f61a073
commit d650914a3f
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -816,16 +816,18 @@ end;
{@@ ---------------------------------------------------------------------------- {@@ ----------------------------------------------------------------------------
Frees the shared string table. Also: destroys the rich-text memory streams Frees the shared string table. Also: destroys the rich-text memory streams
which can be assigned to string table items. which may be assigned to string table items.
-------------------------------------------------------------------------------} -------------------------------------------------------------------------------}
procedure TsSpreadBIFF8Reader.FreeSharedStringTable; procedure TsSpreadBIFF8Reader.FreeSharedStringTable;
var var
j: Integer; j: Integer;
begin begin
if FSharedStringTable <> nil then begin
for j := 0 to FSharedStringTable.Count-1 do for j := 0 to FSharedStringTable.Count-1 do
TObject(FSharedStringTable.Objects[j]).Free; TObject(FSharedStringTable.Objects[j]).Free;
FreeAndNil(FSharedStringTable); FreeAndNil(FSharedStringTable);
end; end;
end;
{@@ ---------------------------------------------------------------------------- {@@ ----------------------------------------------------------------------------
Populates the reader's default palette using the BIFF8 default colors. Populates the reader's default palette using the BIFF8 default colors.