12 lines
242 B
Text
12 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;
|