pascalabcnet/TestSuite/nullable3.pas

14 lines
323 B
ObjectPascal
Raw Permalink Normal View History

2020-12-20 14:11:30 +03:00
begin
var a := new System.Nullable<integer>[1,1];
a[0,0] := 1;
assert(a[0,0] = 1);
a[0,0] := nil;
2021-09-27 21:46:52 +03:00
assert(a[0,0] <> 0);
2020-12-20 14:11:30 +03:00
assert(a[0,0] = nil);
var a2 : array of array of System.Nullable<integer>;
SetLength(a2,1);
SetLength(a2[0],1);
a2[0,0] := nil;
2021-09-27 21:46:52 +03:00
assert(a2[0,0] <> 0);
2020-12-20 14:11:30 +03:00
assert(a2[0,0] = nil);
end.