pascalabcnet/TestSuite/generics12.pas
2018-10-02 17:53:43 +03:00

10 lines
196 B
ObjectPascal

{function DQNToNullable<T>(v: T): T; where T: record;
begin
var res := new System.Nullable<T>(v);
Result := res.Value;
end;}
begin
var t := DQNToNullable(2);
assert(t.Value = 2);
end.