20 lines
338 B
ObjectPascal
20 lines
338 B
ObjectPascal
|
type
|
|||
|
|
I1 = interface
|
|||
|
|
property X: byte read;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
I2 = interface
|
|||
|
|
property X: byte read;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
T = class(I1, I2)
|
|||
|
|
public
|
|||
|
|
property I1.X: byte read 0;
|
|||
|
|
//I2.X не реализовано, но компиляция успешна
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var x := new T();
|
|||
|
|
Writeln(I1(x).X);
|
|||
|
|
Writeln(I2(x).X);
|
|||
|
|
end.
|