You have specified a clause in a dispinterface type which is not allowed.
program Produce; type IBase = dispinterface ['{00000000-0000-0000-0000-000000000000}'] function Get : Integer; property BaseValue : Integer read Get; end; IExt = interface (IBase) end; begin end. program Solve; type IBase = dispinterface ['{00000000-0000-0000-0000-000000000000}'] function Get : Integer; property BaseValue : Integer; end; begin end.
Copyright(C) 2008 CodeGear(TM). All Rights Reserved.
|
What do you think about this topic? Send feedback!
|