10 lines
176 B
ObjectPascal
10 lines
176 B
ObjectPascal
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. |