Синтаксис:
procedure ExceptionsOff; |
Описание:
Функция отключает генерацию исключений. Включить генерацию исключений можно с помощью функции ExceptionsOn. Получить информацию о сгенерированных после вызова функции исключениях можно с помощью функций ExceptionExists и GetLastException. Отключая генерацию исключений, следует четко представлять ход выполнения вычисления в случае возникновения исключений, чтобы избежать возникновения наведенных ошибок из-за необработанных исключений.
Пример использования:
// Обработать исключение при загрузке сохраненного поиска.
// SearchName – имя поиска.
// SavedSearchNotFoundMsg – текст исключения в случае,
// когда сохраненный поиск не найден.
// SaveToFileFormat – форматная строка для записи
// исключения в лог.
// LogFile – имя файла лога.
// NeedDialog - признак необходимости отображения диалога
// сообщения об ошибке.
ExceptionsOff()
FreeException()
SearchDescription = SearchFactory.Load(SearchName)
ExceptionsOn()
if ExceptionExists()
if NeedDialog == True
Raise(CreateException('ESavedSearchNotFound';
SavedSearchNotFoundMsg; ecException))
else
ФайлЗаписать(LogFile; 'Д'; Format(SaveToFileFormat;
ArrayOf(Time(); TAB; SavedSearchNotFoundMsg; CR)))
Exit()
endif
endif
Функция ExceptionExists Функция ExceptionsOn Функция GetLastException |