TSparseInt64Array

type TSparseInt64Array = class(ASparseArray)

protected

  function LocateItemRecord();

  procedure Rehash;

  function GetCount; override;

  function GetItem();

  procedure SetItem();

public

  procedure Assign(); override;

  function IsEqual(); override;

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

  function LocateItem();

  property Count: Integer; [r]

  function IsEmpty; override;

  procedure Clear; override;

  procedure Delete(); override;

  function HasItem(); override;

  function FindFirst();

  function FindNext();

end;

TSparseInt64Array

ASparseArray

AType

TObject