Dear community,
if I try to open via TsWorkbookSource xls file (format: excel 1997-2003 - EXCEL8), it throws exception mentioning List index (-1) out of range.
After debugging it hangs on following function in file common \ fpsreaderwriter.pas -> TsSpreadFormatRegistry.GetFormatArray
// Rearrange the formats such the one noted in APriorityFormats are at the top
if Length(APriorityFormats) > 0 then
for i := High(APriorityFormats) downto Low(APriorityFormats) do
begin
idx := IndexOf(APriorityFormats);
data := TsSpreadFormatData(FList[idx]);
FList.Delete(idx);
FList.Insert(0, data);
end;
Platform:
Windows 7, FPC 3.0 Stable, Lazarus 2.0.2, fpspreadsheet 1.11 viac FpcUpDeluxe
Any ideads why it happens? Ive attached problematic document - just in case.