Question

Consider the follow code:

TMyList = class(TList<IMyItem>, IMyList)

Delphi shows me the error:

[DCC Error] test.pas(104): E2003 Undeclared identifier: 'QueryInterface'

Is there a generic list that implements IInterface?

Answer 1

The classes in Generics.Collections do not implement IInterface. You will have to introduce it yourself in your derived classes and provide the standard implementations. Or find a different, third party, set of container classes to work with.

For example:

TInterfacedList<T> = class(TList<T>, IInterface)
protected
  FRefCount: Integer;
  function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
  function _AddRef: Integer; stdcall;
  function _Release: Integer; stdcall;
end;

function TInterfacedList<T>.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  if GetInterface(IID, Obj) then
    Result := 0
  else
    Result := E_NOINTERFACE;
end;

function TInterfacedList<T>._AddRef: Integer;
begin
  Result := InterlockedIncrement(FRefCount);
end;

function TInterfacedList<T>._Release: Integer;
begin
  Result := InterlockedDecrement(FRefCount);
  if Result = 0 then
    Destroy;
end;

You can then declare your specialised class:

TMyList = class(TInterfacedList<IMyItem>, IMyList)

Remember that you need to treat this class like any other that uses reference counted lifetime management. Only refer to it through interfaces.

You’d really want to do some more work before TInterfacedList<T> was useful. You’d need to declare an IList<T> which would expose the list capabilities. It would be something like this:

IList<T> = interface
  function Add(const Value: T): Integer;
  procedure Insert(Index: Integer; const Value: T);
  .... etc. etc.
end;

You can then simply add IList<T> to the list of interfaces supported by TInterfacedList<T> and the base class TList<T> would fulfil the interface contract.

TInterfacedList<T> = class(TList<T>, IInterface, IList<T>)