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. |