TObjectArray

type TObjectArray = class(AObjectArray)

protected

  FData: ObjectArray;

  FCapacity: Integer;

  FCount: Integer;

  FIsItemOwner: Boolean;

  procedure Init; override;

  procedure SetData(); virtual;

  function GetCount; override;

  procedure SetCount(); override;

  function GetItem(); override;

  procedure SetItem(); override;

  function GetRange(); override;

  function GetIsItemOwner; override;

  procedure SetIsItemOwner(); override;

public

  constructor Create(); overload;

  destructor Destroy; override;

  property Data: ObjectArray; [rw]

  property Count: Integer; [rw]

  property IsItemOwner: Boolean; [rw]

  procedure FreeItems; override;

  procedure ReleaseItems; override;

  function ReleaseItem(); override;

  function DuplicateRange(); override;

  procedure Delete(); override;

  procedure Insert(); override;

  function AppendItem(); override;

end;

TObjectArray

AObjectArray

AArray

AType

TObject