pascalabcnet/TestSuite/generics12.pas

9 lines
171 B
ObjectPascal
Raw Permalink Normal View History

2017-05-25 11:37:16 +03:00
function DQNToNullable<T>(v: T): T; where T: record;
begin
var res := new System.Nullable<T>(v);
Result := res.Value;
end;
begin
assert(DQNToNullable(2) = 2);
end.