9 lines
135 B
ObjectPascal
9 lines
135 B
ObjectPascal
type
|
|
t1 = class
|
|
x: integer;
|
|
property p1: real read x+1 write begin x:=1; end;
|
|
property p2:real read x+3;
|
|
end;
|
|
|
|
begin end.
|