22 lines
232 B
Text
22 lines
232 B
Text
|
procedure Inner;
|
||
|
|
begin
|
||
|
|
try
|
||
|
|
raise Exception.Create('');
|
||
|
|
except
|
||
|
|
on E: Exception do
|
||
|
|
PrintLn(E.StackTrace);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Middle;
|
||
|
|
begin
|
||
|
|
Inner;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Outer;
|
||
|
|
begin
|
||
|
|
Middle;
|
||
|
|
end;
|
||
|
|
|
||
|
|
Outer;
|