12 lines
201 B
ObjectPascal
12 lines
201 B
ObjectPascal
|
unit u_doublequestion1;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var o := new object;
|
|||
|
|
var s := o ?? nil;
|
|||
|
|
assert(s = o);
|
|||
|
|
o := nil;
|
|||
|
|
s := o ?? new object;
|
|||
|
|
assert(s <> nil);
|
|||
|
|
var x := nil ?? 'abc';
|
|||
|
|
assert(x = 'abc');
|
|||
|
|
end.
|