Турбо Паскаль 6.0


TCollection Objects - часть 5


P := List.LastThat(@Matches);

соответствует

I := List.Count - 1; while (I >= 0) and Matches(List.At(I)) do Dec(I); if I >= 0 then P := List.At(I) else P := nil;

См. так же: TCollection.FirstThat, TCollection.ForEach;

Pack Procedure Pack; Удаляет все nil указатели в коллекции.

См. так же: TCollection.Delete, TCollection.DeleteAll

PutItem procedure PutItem(var S: TStream; Item: Pointer); virtual; Перекрывается: Иногда Вызывается из TCollection.Store для каждого элемента коллекции. Этот метод может быть перекрыт, но не должен вызываться прямо. По умолчанию TCollection.PutItem предполагает, что элементы коллекций порождаются от TObject и вызов TString.Put сохраняет элемент:

S.Put(Item);

См. так же: TCollection.GetItem, TCollection.Store, TCollection.Load

SetLimit procedure SetLimit(ALimit: Integer); virtual; Перекрывается: Редко Расширяет или сокращает коллекцию, изменяя распределенный размер в ALimit. Если ALimit меньше Count, он устанавливается в Count, и если ALimit больше MaxCollectionSize, он устанавливается в MaxCollectionSize. Кроме того, если ALimit отличается от текущего Limit, распределяется новый массив Items из Alimit элементов, старый массив Items копируется в новый массив и старый массив освобождается.

См.так же: TCollection.Limit, TCollection.Count, переменная MaxCollectionSize

Store procedure Store(var S: TStream); Сохраняет коллекцию и все ее элементы в потоке S. TCollection.Store вызывает TCollection.PutItem для каждого элемента коллекции.

См. так же: TCollection.PutItem

 




Начало  Назад  Вперед



Книжный магазин