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) 2009 Embarcadero Technologies, Inc. All Rights Reserved.
|
|
What do you think about this topic? Send feedback!
|