TCollection e Interfaces

Delphi

08/05/2009

Senhores(as) bom dia, estou com uma dúvida, é possível implementar uma classe de collection que implementa uma interface?

pois na minha unit coloquei uma declaração como a abaixo e recebi uma mensagem de erro (mais abaixo).

unit Pedidos;

interface

uses classes, TransporteInterfaces;

type

  TPedidos = class;

  TPedido = class(TCollectionItem, ITransportePedido)

    ... codigo

  end;



[b:e795c47942][Pascal Error] Pedidos.pas(46): E2003 Undeclared identifier: ´QueryInterface´
[Pascal Error] Pedidos.pas(46): E2003 Undeclared identifier: ´_AddRef´
[Pascal Error] Pedidos.pas(46): E2003 Undeclared identifier: ´_Release´
[/b:e795c47942]


Se eu alterar a declaração retirando a interface funciona tudo perfeito.

unit Pedidos;

interface

uses classes, TransporteInterfaces;

type

  TPedidos = class;

  TPedido = class(TCollectionItem) //, ITransportePedido)

    ... codigo

  end;


Se puderem me ajudar ....muito obrigado!!


Josehenrique

Josehenrique

Curtidas 0
POSTAR