Dear community,
while using latest fpspreadsheet (SVN commit id: 6891) I encountered bug while opening Excel8 workbook (xlsbiff8 in fpsreadsheet sources).
It seems to me that the procedure FreeSharedStringTable should look like this:
procedure TsSpreadBIFF8Reader.FreeSharedStringTable;
var
j: Integer;
begin
if not (FSharedStringTable is TStringList) then
Exit;
for j := FSharedStringTable.Count-1 downto 0 do
TObject(FSharedStringTable.Objects[j]).Free;
FreeAndNil(FSharedStringTable);
end;
Without check "FSharedStringTable is TStringList" it always crashes, which looks like that FSharedStringTable is not initalized correctly.
Shouldn't FSharedStringTable be initialized in TsSpreadBIFF8Reader constructor ?