Процедура RunError

Останавливает выполнение программы.

Объявление:

 Procedure RunError [ ( Errorcode : Byte ) ];
 

Замечания:
Генерирует ошибку во время выполнения программы с данным номером в текущем операторе.

Пример:

  Begin
  {$IFDEF Debug}
    If P=NIL Then RunError(204);
  {$ENDIF}
  End.
 
 

См. также: