TSparseObjectArray

type TSparseObjectArray = class(ASparseArray)

protected

  procedure Init; override;

  function LocateItemRecord();

  procedure Rehash;

  function GetCount; override;

  function GetItem();

  procedure SetItem();

public

  constructor Create();

  destructor Destroy; override;

  procedure Assign(); override;

  function IsEqual(); override;

  property IsItemOwner: Boolean; [rw]

  property Item []: TObject; default; [rw]

  function LocateItem();

  property Count: Integer; [r]

  function IsEmpty; override;

  procedure Clear; override;

  procedure Delete(); override;

  function ReleaseItem();

  function HasItem(); override;

  function FindFirst();

  function FindNext();

end;

TSparseObjectArray

ASparseArray

AType

TObject