11 lines
242 B
Text
11 lines
242 B
Text
procedure Test2;
|
|
begin
|
|
try
|
|
test;
|
|
except
|
|
on E: Exception do begin // Filter by exception class
|
|
PrintLn(E.Message); // Showing exception message
|
|
raise; // Rethrowing
|
|
end;
|
|
end;
|
|
end;
|