TplCollection

type TplCollection = class(TplContainer)

protected

  colPageList: TplList;

  colPageElements: Integer;

  colCachePage: TPageDescriptor;

  procedure colAdjustPagesAfter();

  procedure colAtInsertInPage();

  procedure colAtDeleteInPage();

  function colGetCount;

  function colGetEfficiency;

  procedure ForEachPointer(); override;

  function StoresPointers; override;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure LoadFromStream(); override;

  procedure StoreToStream(); override;

  procedure Clear; override;

  procedure Assign(); override;

  procedure Pack;

  function At();

  function IndexOf(); virtual;

  procedure AtInsert();

  procedure AtPut();

  procedure Insert(); virtual;

  procedure AtDelete();

  procedure Delete();

  function Iterate();

  property Count: LongInt; [r]

  property Efficiency: Integer; [r]

  property Items []: Pointer; default; [rw]

end;

TplCollection

TplContainer

TObject