pascalabcnet/TestSuite/nil2.pas

12 lines
296 B
ObjectPascal
Raw Permalink Normal View History

2019-10-13 15:42:00 +03:00
begin
var s1 := Seq('abc','def');
var s2 := s1 + string(nil); //Вызывает это: function operator+<T>(a, b: sequence of T): sequence of T; extensionmethod;
assert(s2.ToArray[2] = nil);
var i := 0;
try
var s3 := s1 + nil;
except
i := 1;
end;
assert(i = 1);
end.