12 lines
165 B
ObjectPascal
12 lines
165 B
ObjectPascal
procedure p0(l: System.Delegate) := l.DynamicInvoke();
|
|
|
|
begin
|
|
var i := 0;
|
|
p0(()->
|
|
begin
|
|
i := 2;
|
|
Result := true;
|
|
|
|
end);
|
|
assert(i = 2);
|
|
end. |