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

fpspreadsheet: Add creation of biff8 commentlist forgotten in previous commit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4213 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-07-27 22:50:31 +00:00
parent d2f8202c38
commit 42f5ce9be2
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/xlsbiff8.pas
View File

@ -116,8 +116,6 @@ type
procedure ReadXF(const AStream: TStream); procedure ReadXF(const AStream: TStream);
public public
destructor Destroy; override; destructor Destroy; override;
{ General reading methods }
// procedure ReadFromFile(AFileName: string); override;
procedure ReadFromStream(AStream: TStream); override; procedure ReadFromStream(AStream: TStream); override;
end; end;
@ -764,6 +762,10 @@ var
RecordType: Word; RecordType: Word;
CurStreamPos: Int64; CurStreamPos: Int64;
begin begin
if FCommentList = nil
then FCommentList := TObjectList.Create
else FCommentList.Clear;
if Assigned(FSharedStringTable) then FreeAndNil(FSharedStringTable); if Assigned(FSharedStringTable) then FreeAndNil(FSharedStringTable);
while (not SectionEOF) do begin while (not SectionEOF) do begin