Смысл такой:
в модуле err.pas описаны функция try и процедура finally.
Позволяет обрабатывать исключения на подобии того, что сделано в Delphi.
Допускает до 32 вложений.
...
if try then begin
{ здесь пишем код, который хотим защитить от ошибок}
end else begin
{ сюда попадаем, если произошло прерывание в предыдущем блоке}
end;
{здесь ничего не пишем}
finally; {нужно, что бы освободить ресурсы, занятые try}
...
програмка EXE1.PAS с модулем SYSUTILS.PAS - пример использования.
Не сверх, конечно, - но в принципе удобно :)
С уважением
ВС АСУ Вячеслав Сбоев
|