17 lines
293 B
ObjectPascal
17 lines
293 B
ObjectPascal
type
|
|
t1 = abstract class
|
|
|
|
private p1_val: boolean := false;
|
|
property p1: boolean read p1_val; virtual;
|
|
end;
|
|
|
|
t2 = class(t1)
|
|
x: boolean := true;
|
|
property p1: boolean read x; override;
|
|
end;
|
|
|
|
begin
|
|
var a := new t2;
|
|
assert(a.p1);
|
|
assert((a as t1).p1);
|
|
end. |