Mail

В этот день много лет назад...
29 января. В 1895 году (131 год назад) - Одно из первых выступлений Николая II в качестве нового царя в Аничковом дворце в Петербурге перед депутацией от дворянства, земств и городов. Царь волнуется и говорит громко. Его супруга, в то время слабо понимавшая по-русски, встревожено спрашивает у стоящей рядом фрейлины: "Почему он кричит?" На что фрейлина отвечает по-французски: "Он объясняет им, что они дураки..."

Turbo Pascal Documentation

Процедура RunError

     Функция: Останавливает выполнение программы и генериру-
ет ошибку времени выполнения.
     Описание: RunError [ (код_ошибки : word ) ]
     Примечания:  Процедура  RunError  аналогична  процедуре
Halt,  но  в дополнение к остановке программы она генерирует
на текущем операторе  ошибку  времени  выполнения.  Парвметр
"код_ошибки"  представляет собой номер ошибки времени выпол-
нения (0 опущен). Если текущий модуль  был  скомпилирован  с
установленной  опцией Debug Information (Отладочная информа-
ция), и вы запускаете программу из среды  интерактивной  от-
ладки,  то  Турбо-Паскаль обрабатывает обращение к RunErrorа
как обычную ошибку времени выполнения.
     Прочее: См. также процедуру Halt.
     Пример:

  {IFDEF Debug}
     if P = nil then RunError(204);
  {EDNIF}