Exception scoping |
Smart pascal source code
{ main.pas }
var e: string;
Begin
try
WriteLn('ok');
except
on e: EDelphi do
begin
WriteLn(EDelphi(e).ClassName);
end;
on e: Exception do
WriteLn(e.ClassName);
end;
{ <<< CONSOLE OUTPUTS >>>
ok
}