TOvcSparseArray

type TOvcSparseArray = class

protected

  FCount: LongInt;

  FArray: pointer;

  ChunkCount: Word;

  ChunkArraySize: Word;

  procedure RecalcCount;

  function GetActiveCount;

  function GetItem();

  procedure PutItem();

public

  constructor Create;

  destructor Destroy; override;

  function Add();

  procedure Clear;

  procedure Delete();

  procedure Exchange();

  function First;

  function ForAll();

  function IndexOf();

  procedure Insert();

  function Last;

  procedure Squeeze;

  property Count: LongInt; [r]

  property ActiveCount: LongInt; [r]

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

end;

TOvcSparseArray

TObject