2021-11-14 13:34:27 +03:00
|
|
|
|
//!semantic
|
|
|
|
|
|
type
|
2018-10-03 16:09:05 +03:00
|
|
|
|
TClass = class
|
|
|
|
|
|
fX: byte;
|
|
|
|
|
|
|
|
|
|
|
|
property X: byte read 0;
|
|
|
|
|
|
|
|
|
|
|
|
function F() := 0;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
|
var instance := new TClass();
|
2021-11-14 13:34:27 +03:00
|
|
|
|
var x1{@var x1: Nullable<byte>;@} := instance?.fX;
|
|
|
|
|
|
var x3{@var x3: Nullable<integer>;@} := instance?.F;
|
2018-10-03 16:09:05 +03:00
|
|
|
|
writeln(instance?.F{@function TClass.F(): integer;@});
|
|
|
|
|
|
end.
|
