TPointerArray

type TPointerArray = class(APointerArray)

protected

  FData: PointerArray;

  FCapacity: Integer;

  FCount: Integer;

  function GetCount; override;

  procedure SetCount(); override;

  function GetItem(); override;

  procedure SetItem(); override;

  function GetRange(); override;

  procedure SetRange(); override;

  procedure SetData(); virtual;

public

  constructor Create(); overload;

  procedure Assign();

  procedure ExchangeItems(); override;

  function DuplicateRange(); override;

  procedure Delete(); override;

  procedure Insert(); override;

  function AppendItem(); override;

  property Data: PointerArray; [rw]

  property Count: Integer; [rw]

end;

TPointerArray

APointerArray

AArray

AType

TObject