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

* fixed TColletcion.AtInsert

Browse Source
This commit is contained in:
peter 1999-01-12 14:21:50 +00:00
parent cef9fc7b2b
commit 8e645c448e
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/objects.pp
View File

@ -1907,8 +1907,8 @@ BEGIN
If (Count=Limit) Then SetLimit(Limit+Delta); { Expand size if able } If (Count=Limit) Then SetLimit(Limit+Delta); { Expand size if able }
If (Limit>Count) Then Begin If (Limit>Count) Then Begin
If (Index < Count) Then Begin { Not last item } If (Index < Count) Then Begin { Not last item }
For I := Count DownTo Index Do { Start from back } For I := Count-1 DownTo Index Do { Start from back }
Items^[I] := Items^[I-1]; { Move each item } Items^[I+1] := Items^[I]; { Move each item }
End; End;
Items^[Index] := Item; { Put item in list } Items^[Index] := Item; { Put item in list }
Inc(Count); { Inc count } Inc(Count); { Inc count }
@ -2692,7 +2692,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.23 1999-01-06 10:11:06 daniel Revision 1.24 1999-01-12 14:21:50 peter
* fixed TColletcion.AtInsert
Revision 1.23 1999/01/06 10:11:06 daniel
* Removed on more handle:=-1 statement * Removed on more handle:=-1 statement
Revision 1.22 1998/12/30 10:26:16 peter Revision 1.22 1998/12/30 10:26:16 peter