runerror.pas

Пример программы для процедуры RunError.

Код примера
 {Runerror.PAS}
 
{ Пример программы для процедуры RunError }
 
Begin
{$IFDEF Debug}
  If P=NIL Then RunError(204);
{$ENDIF}
End.
 

Скачать runerror.pas