14 lines
193 B
ObjectPascal
14 lines
193 B
ObjectPascal
begin
|
|
var i := 0;
|
|
var p: procedure := ()->try
|
|
raise new Exception('test');
|
|
except
|
|
on ex: Exception do
|
|
begin
|
|
i := 1;
|
|
end;
|
|
|
|
end;
|
|
p;
|
|
assert(i = 1);
|
|
end. |