IException – исключение

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

// SearchName - имя поиска

// NeedDialog - признак необходимости отображения диалога сообщения об ошибке

ExceptionsOff()

FreeException()

SearchDescription = Searches.Load(SearchName)

ExceptionsOn()

if ExceptionExists()

  SearchLoadException = GetLastException()

  if NeedDialog == True

    SearchLoadException.Message = 'При загрузке поиска произошла ошибка ^ '

      & SearchLoadException.Message

    ShowMessage(SearchLoadException.RawMessage)

  else

    SearchLoadException.WriteToLog() 

    Exit()

  endif

endif

Функция CreateException

Функция ExceptionExists

Функция ExceptionsOff

Функция ExceptionsOn

Функция FreeException

Функция GetLastException

Функция Raise