Функции для работы с объектами

 

Прочие функции для работы с объектами

 

ExceptionsOn – включить генерацию исключений

Синтаксис:

procedure ExceptionsOn;

Описание:

Включает генерацию исключений, отключенную функцией ExceptionsOff.

Пример использования:

// Обработать исключение при загрузке сохраненного поиска.

// 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

 

 

См. также:

·         функция ExceptionsOff.