17 lines
319 B
ObjectPascal
17 lines
319 B
ObjectPascal
|
begin
|
|||
|
|
var o := new class(field := default(byte?));
|
|||
|
|
o := nil;
|
|||
|
|
var a := o?.field = nil;
|
|||
|
|
assert(a);
|
|||
|
|
a := nil = o?.field;
|
|||
|
|
assert(a);
|
|||
|
|
a := o?.field <> nil;
|
|||
|
|
assert(not a);
|
|||
|
|
a := nil <> o?.field;
|
|||
|
|
assert(not a);
|
|||
|
|
var b: byte?;
|
|||
|
|
a := o?.field = b;
|
|||
|
|
assert(a);
|
|||
|
|
a := o?.field <> b;
|
|||
|
|
assert(not a);
|
|||
|
|
end.
|