Message: String;
Свойство Message возвращает сообщение об ошибке.
Sub Main;
Var
a: Array[0..1] Of Integer;
Exc: IException;
Begin
Try
a[2] := 1;
Except On e: IndexOutOfRangeException Do
Debug.WriteLine(e.Message);
Debug.WriteLine(e.Source);
Debug.WriteLine(e.Line);
Exc := e.NestedException;
Debug.WriteLine(Exc.Source);
Debug.WriteLine(Exc.Line);
End Try;
End Sub Main;
После выполнения примера будет сгенерирована ошибка "Недопустимый индекс элемента". При обработке ошибки в консоль среды разработки будут выведены текст ошибки, идентификатор модуля/формы и номер строки, в которой была сгенерирована ошибка, а также наименование и номер строки в файле платформы, в котором реализована обработка данной исключительной ситуации.
См. также: