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.



Содержание  Назад  Вперед