Программирование: GetExceptionMessage

Прототип

function GetExceptionMessage: String;

Описание

Возвращает сообщение, связанное с текущим исключением. Эта функция должна вызываться только из блока обработки исключений except или другой функции, вызываемой из блока except.

Комментарии

Сообщения исключений обычно не заканчиваются точкой. Обработайте результат функцией AddPeriod, чтобы добавить точку в конце сообщения.

Пример

var
  I: Integer;
begin
  I := 1;
  try
    // Следующая строка вызовет исключение "Деление на ноль"
    I := I div 0;
  except
    // Перехватываем исключение, обрабатываем и продолжаем работу
    MsgBox('Исключение: ' + AddPeriod(GetExceptionMessage), mbError, MB_OK);
  end;
end;