ReportError;
Метод ReportError выводит информационное сообщение об ошибке на экран.
Сообщение содержит текст ошибки, идентификатор модуля/формы и номер строки, в которой произошла ошибка, а также информацию об ошибке, вызвавшей текущее исключение.
Sub UserProc;
Var
a: Array[0..1] Of Integer;
Begin
Try
a[2] := 1;
Except On e: IndexOutOfRangeException Do
e.ReportError;
End Try;
End Sub UserProc;
При выполнении примера будет сгенерирована ошибка "Недопустимый индекс элемента!". При обработке данной ошибки на экран будет выведено сообщение с информацией об ошибке.
См. также: