16 lines
325 B
ObjectPascal
16 lines
325 B
ObjectPascal
|
var o: object;
|
|||
|
|
|
|||
|
|
procedure p0<T>(f: () -> T);
|
|||
|
|
begin
|
|||
|
|
o := f();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
p0(()->
|
|||
|
|
begin
|
|||
|
|
Result := default(integer?);
|
|||
|
|
//Ошибка: Нельзя преобразовать тип integer к Nullable<integer>
|
|||
|
|
Result := 5;
|
|||
|
|
end);
|
|||
|
|
assert(System.Nullable&<integer>(o) = System.Nullable&<integer>(5));
|
|||
|
|
end.
|