TList

type TList = object(TObj)

protected

  fItems: PPointerList;

  fCount: Integer;

  fCapacity: Integer;

  fAddBy: Integer;

  procedure SetCount();

  procedure SetAddBy();

  destructor Destroy; virtual;

  procedure SetCapacity();

  function Get();

  procedure Put();

public

  procedure Clear;

  procedure Add();

  procedure Insert();

  function IndexOf();

  procedure Delete();

  procedure DeleteRange();

  procedure Remove();

  property Count: Integer; [rw]

  property Capacity: Integer; [rw]

  property Items: Pointer; default; [rw]

  function Last;

  procedure Swap();

  procedure MoveItem();

  procedure Release;

  procedure ReleaseObjects;

  property AddBy: Integer; [rw]

  property DataMemory: PPointerList; [r]

  procedure Assign();

end;

TList

TObj

_TObj