paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix wrong index check for insert, border is different

Browse Source 
git-svn-id: trunk@34834 -
This commit is contained in:
michael 2016-11-07 13:39:56 +00:00
parent e78cc24ca3
commit 32ec90dccf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/classes/stringl.inc
View File

@ -1629,7 +1629,8 @@ begin
Error (SSortedListError,0)
else
begin
CheckIndex(Index);
If (Index<0) or (Index>FCount) then
Error(SListIndexError,Index); // Cannot use CheckIndex, because there >= FCount...
InsertItem (Index,S);
end;
end;