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

fpspreadsheet: No "invalid index" error message when attempting to save a workbook without reader/writer unit in "uses"

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7197 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-11-23 11:34:00 +00:00
parent 79a817cefd
commit f131c02f88
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/source/common/fpsreaderwriter.pas
View File

@ -1199,7 +1199,8 @@ begin
begin begin
// Bring the priority format to the top // Bring the priority format to the top
idx := IndexOf(APriorityFormat); idx := IndexOf(APriorityFormat);
FList.Exchange(0, idx); if idx > -1 then
FList.Exchange(0, idx);
end; end;
SetLength(Result, FList.Count); SetLength(Result, FList.Count);
@ -1224,7 +1225,8 @@ begin
if APriorityFormat <> sfidUnknown then if APriorityFormat <> sfidUnknown then
// Restore original order // Restore original order
FList.Exchange(idx, 0); if idx > -1 then
FList.Exchange(idx, 0);
end; end;
function TsSpreadFormatRegistry.GetFormatName(AFormatID: TsSpreadFormatID): String; function TsSpreadFormatRegistry.GetFormatName(AFormatID: TsSpreadFormatID): String;