18 lines
471 B
ObjectPascal
18 lines
471 B
ObjectPascal
|
unit Data;
|
|||
|
|
|
|||
|
|
//обязательно params
|
|||
|
|
procedure p2(params o: array of Exception) := exit;//не обязательно короткая процедура
|
|||
|
|
|
|||
|
|
procedure p1 :=//не обязательно короткая процедура
|
|||
|
|
try
|
|||
|
|
if true then
|
|||
|
|
p2(nil);
|
|||
|
|
except
|
|||
|
|
//обязательно on do и использование переменной исключения в процедуре с params
|
|||
|
|
on e: Exception do
|
|||
|
|
|
|||
|
|
p2(e);
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|