From 42f5ce9be275a6efd3314cf742caa65878d62407 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 27 Jul 2015 22:50:31 +0000
Subject: [PATCH] fpspreadsheet: Add creation of biff8 commentlist forgotten in
 previous commit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4213 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/xlsbiff8.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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