APointerArray

type APointerArray = class(AArray)

protected

  function GetItem(); virtual; abstract;

  procedure SetItem(); virtual; abstract;

  function GetItemAsString(); override;

  procedure SetItemAsString(); override;

  function GetRange(); virtual;

  procedure SetRange(); virtual;

public

  procedure Assign(); override;

  function IsEqual(); override;

  procedure ExchangeItems(); override;

  function CompareItems(); override;

  function AppendArray();

  function DuplicateRange(); override;

  procedure Delete(); override;

  procedure Insert(); override;

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

  property Range []: PointerArray; [rw]

  procedure Fill(); virtual;

  function AppendItem(); virtual;

  function PosNext();

end;

APointerArray

AArray

AType

TObject