pascalabcnet/TestSuite/where2.pas
Бондарев Иван c71e1f19cb bug fix #420
2017-06-11 14:56:40 +02:00

9 lines
212 B
ObjectPascal

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.