Pascal 7 & Objects
AtInsert
-----------------------------------------------------------------
рrocedure AtInsert(Index: Integer; Item: рointer);
Вставляет элемент в позиции Index и сдвигает последующие элементы на одну позицию назад. Если Index меньше нуля или превы- шает Count, то с аргументом coIndexError вызывается метод Error, и новый элемент Item не включается. Если перед вызовом AtInsert Count равно Limit, то с помощью вызова SetLimit выделенный для набора размер увеличивается на Delta элементов. Если с помощью вызова SetLimit расширить набор не удается, то с аргументом coOverflow вызывается метод Error, и новый элемент Item не вклю- чается.
См. также: TCollection.At, TCollection.Atрut.
