[fpc-pascal] Is it posible to implement more than one interface in a class defination?

[Sven Barth]

On 14.11.2010 13:08, yu ping wrote:
>   For example if there are two Interface : IinterfaceA,IinterfaceB
>   can I implement these two interface in one class?

Yes, you can. Take the following example:

type
   IInterfaceA = interface
     procedure A;
   end;

   IInterfaceB = interface
     procedure B;
   end;

   TMyInterfacedObject = class(TInterfacedObject, IInterfaceA, IInterfaceB)
   public
     procedure A;
     procedure B;
   end;

Regards,
Sven