Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program fpc_bug;
- {$mode objfpc}
- {$interfaces CORBA}
- uses Variants;
- type
- IInterfaceA = interface
- procedure Afunction( x : byte );
- end;
- IInterfaceB = interface
- procedure Bfunction( s : AnsiString );
- end;
- TBaseObject = class(IInterfaceA)
- procedure Afunction( x : byte ); // implemented from IInterfaceA
- end;
- TOtherObject = class(TBaseObject, IInterfaceB)
- procedure Bfunction( s : AnsiString ); // implemented from IInterfaceB
- end;
- procedure TBaseObject.Afunction( x : byte );
- begin
- Writeln('TBaseObject : ', x );
- end;
- procedure TOtherObject.Bfunction( s : AnsiString );
- begin
- Writeln('TOtherObject : ', s );
- end;
- var oo : TOtherObject;
- o : TObject;
- begin
- oo := TOtherObject.Create;
- o := oo;
- (o as IInterfaceA).AFunction(42);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement