pascalabcnet/TestSuite/where2.pas

9 lines
212 B
ObjectPascal
Raw Permalink Normal View History

2017-06-11 15:56:40 +03:00
function DQNToNullable2<T> (ff: System.Nullable<T>; v: T): System.Nullable<T>; where T: record;
begin
Result := new System.Nullable<T>(v);
end;
begin
var v := DQNToNullable2(2,2);
assert(v.Value = 2);
end.