Pascal 7 & Objects


         

Insert (никогда не переопределяется)


-----------------------------------------------------------------

procedure Insert(Item: Pointer); virtual;

Если целевой элемент в отсортированном наборе не найден, то он включается в текущей позиции индекса. Для определения наличия или отсутствия элемента вызывает TSortedCollection.Search. Если элемент отсутствует, то включает его. Фактической реализацией TSortedCollection.Insert является:

if not Search(KeyOf(Item), I) or Duplicates then AtInsert(I, Item);

См. также: TSortedCollection.Search.



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