AObjectArray

type AObjectArray = class(AArray)

protected

  function GetItem(); virtual; abstract;

  procedure SetItem(); virtual; abstract;

  function GetRange(); virtual;

  procedure SetRange(); virtual;

  function GetAsString; override;

  function GetIsItemOwner; virtual; abstract;

  procedure SetIsItemOwner(); virtual; abstract;

public

  procedure Clear; override;

  procedure Assign(); override;

  function IsEqual(); override;

  function Compare(); override;

  procedure ExchangeItems(); override;

  function CompareItems(); override;

  function AppendArray();

  procedure Delete(); override;

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

  property Range []: ObjectArray; [rw]

  function AppendItem(); virtual;

  function PosNext();

  function Find();

  function FindAll();

  function CountItems();

  function DeleteValue();

  function DeleteAll();

  property IsItemOwner: Boolean; [rw]

  procedure ReleaseItems; virtual; abstract;

  procedure FreeItems; virtual; abstract;

  function ReleaseItem(); virtual; abstract;

  function ReleaseValue();

  function RemoveItem();

  function RemoveValue();

end;

AObjectArray

AArray

AType

TObject