TInterfaceList

type TInterfaceList = class(TInterfacedObject, IInterfaceList)

protected

  function Get();

  function GetCapacity;

  function GetCount;

  procedure Put();

  procedure SetCapacity();

  procedure SetCount();

public

  constructor Create;

Create a new instance of TInterfaceList

  destructor Destroy; override;

Destroys the list of interfaces

  procedure Clear;

Removes all interfaces from the list.

  procedure Delete();

Delete an interface from the list.

  procedure Exchange();

Exchange 2 interfaces in the list

  function First;

Returns the first non-Nil element in the list.

  function GetEnumerator;

Create an IEnumerator instance

  function IndexOf();

Returns the index of an interface.

  function Add();

Add an interface to the list

  procedure Insert();

Insert an interface to the list

  function Last;

Returns the last non-Nil element in the list.

  function Remove();

Remove an interface from the list

  procedure Lock;

Lock the list

  procedure Unlock;

UnLocks a locked list

  function Expand;

Expands the list

  property Capacity: Integer; [rw]

The current capacity of the list.

  property Count: Integer; [rw]

The current number of elements in the list.

  property Items: IUnknown; default; [rw]

Array-based access to the list's items.

end;

TInterfaceList,IInterfaceList

Standard implementation of the IInterfaceList interface.

TInterfacedObject,IUnknown

TObject descendent implementing the IUnknown interface

TObject

Base class of all classes.

IInterfaceList

Interface for maintaining a list of interfaces.

TList

Class to manage collections of pointers.