TAbArchiveList

type TAbArchiveList = class

protected

  FList: TList;

  FOwnsItems: Boolean;

  HashTable: array [0..1020] of TAbArchiveItem;

  function GenerateHash();

  function GetCount;

  function Get();

  procedure Put();

  procedure UpdateHash();

public

  constructor Create();

  destructor Destroy; override;

  function Add();

  procedure Clear;

  procedure Delete();

  function Find();

  function GetEnumerator;

  function IsActiveDupe();

  property Count: Integer; [r]

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

end;

TAbArchiveList

TObject