К сожалению, программа должна быть
nAction := ERRORACT()
IF nAction = 4
? " К сожалению, программа должна быть прервана!"
ENDIF
See Also: ERRORBASE()
ERRORCODE()
ERRORORG()
ERRORBASE()
Возвращает код причины возникновения последней ошибки.
------------------------------------------------------------------------------
Синтаксис
ERRORBASE() --> nErrorCode
Возвращаемое значение
nErrorCode - числовой код причины возникновения ошибки, приведенный в
таблице:
Таблица 12-3. Коды причин ошибок
--------------------------------------------------------------------
Код Определение
--------------------------------------------------------------------
1 Недостаточно памяти
2 Доступ временно запрещен
3 Доступ для данного пользователя запрещен
4 Внутренняя ошибка системного программного обеспечения
5 Ошибка аппаратных средств
6 Ошибка системного программного обеспечения
7 Ошибка прикладной программы
8 Файл не найден
9 Неверный формат или тип файла
10 Файл защищен
11 Неверный тип физического носителя в дисководе
12 Прочие ошибки
--------------------------------------------------------------------
Описание
Функция позволяет по внутренней информации DOS уточнить причину
возникновения ошибки, код которой возвращается функцией ERRORCODE().
Применение данной функции полезно при анализе значений, возвращаемых
CT II-функциями, обеспечивающими возможность обработки ошибок.
Примечания
. Функция поддерживается версиями DOS 3.1 и выше.
Примеры
. Уточнение причины возникновения ошибки:
nCause := ERRORBASE()
IF nCause = 3
? "Доступ запрещен !"
ENDIF
See Also: ERRORACT()
ERRORCODE()
ERRORORG()
ERRORCODE()
Возвращает DOS-код ошибки.
------------------------------------------------------------------------------