Код:
DIOPCGroupEvent = POINTER TO ABSTRACT RECORD (CtlT.OutObject)
(this: DIOPCGroupEvent) AsyncCancelComplete (CancelID: INTEGER), NEW, ABSTRACT;
(this: DIOPCGroupEvent) AsyncReadComplete (TransactionID, NumItems: INTEGER; ClientHandles, ItemValues, Qualities, TimeStamps, Errors: CtlT.Any), NEW, ABSTRACT;
(this: DIOPCGroupEvent) AsyncWriteComplete (TransactionID, NumItems: INTEGER; ClientHandles, Errors: CtlT.Any), NEW, ABSTRACT;
(this: DIOPCGroupEvent) DataChange (TransactionID, NumItems: INTEGER; ClientHandles, ItemValues, Qualities, TimeStamps: CtlT.Any), NEW, ABSTRACT;
(this: DIOPCGroupEvent) GetIID (OUT iid: COM.GUID);
(this: DIOPCGroupEvent) Invoke (id, n: INTEGER; VAR par: CtlT.ParList; VAR ret: WinOleAut.VARIANT)
END;
Как в другом модуле реализовать абстрактние методы этого типа?