14 lines
178 B
ObjectPascal
14 lines
178 B
ObjectPascal
type
|
|
I1 = interface
|
|
property X: byte read;
|
|
end;
|
|
|
|
T = class(I1)
|
|
public
|
|
property T.X: byte read 0;
|
|
end;
|
|
|
|
begin
|
|
var x := new T();
|
|
Writeln(I1(x).X);
|
|
end. |