Механизм исключений потока Delphi

В Delphi 2005 — и, вероятно, в большинстве других версий — если исключение выходит из метода Execute без обработки, оно перехватывается функцией, вызвавшей Execute, и сохраняется в свойстве FatalException потока. (См. Classes.pas, ThreadProc.) С этим исключением больше ничего не делается, пока не будет освобожден поток, после чего освобождается и исключение.

Поэтому вы обязаны проверить это имущество и что-то с этим сделать. Вы можете проверить это в обработчике потока OnTerminate. Если он не нулевой, то поток завершается из-за неперехваченного исключения. Так, например:

procedure TForm1.onterm(Sender: TObject);
var
  ex: TObject;
begin
  Assert(Sender is TThread);
  ex := TThread(Sender).FatalException;
  if Assigned(ex) then begin
    // Thread terminated due to an exception
    if ex is Exception then
      Application.ShowException(Exception(ex))
    else
      ShowMessage(ex.ClassName);
  end else begin
    // Thread terminated cleanly
  end;
  Dec(nrthd);
end;

Нет необходимости во взаимосвязанных функциях для отслеживания количества потоков. И функция создания потока, и обработчик завершения всегда выполняются в контексте основного потока. Достаточно старых Inc и Dec.

Многопоточность — это место, где вы должны пропускать исключения.

Суть обработки исключений в потоках заключается в том, что если вы хотите, чтобы исключение было показано конечному пользователю, вы должны захватить его и передать в основной поток, где его можно безопасно показать.

Вы найдете несколько примеров в этой ветке EDN Как обрабатывать исключения в объектах TThread.

procedure TMyThread.DoHandleException;
begin
  // Cancel the mouse capture
  if GetCapture <> 0 then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
  // Now actually show the exception
  if FException is Exception then
    Application.ShowException(FException)
  else
    SysUtils.ShowException(FException, nil);
end;

procedure TMyThread.Execute;
begin
  FException := nil;
  try
    // raise an Exception
    raise Exception.Create('I raised an exception');
  except
    HandleException;
  end;
end;

procedure TMyThread.HandleException;
begin
  // This function is virtual so you can override it
  // and add your own functionality.
  FException := Exception(ExceptObject);
  try
    // Don't show EAbort messages
    if not (FException is EAbort) then
      Synchronize(DoHandleException);
  finally
    FException := nil;
  end;
end;

Мы также можем повторно вызвать FatalException. Повторное повышение кажется нелогичным, но если у вас есть центральный обработчик исключений/ошибок в вашем коде, и если вы просто хотите включить исключения потоков в этот механизм, вы можете повторно поднять в некоторых редких случаях:

procedure TForm1.onterm(Sender: TObject);
var
  ex: Exception;
begin
  Assert(Sender is TThread);
  ex := Exception(TThread(Sender).FatalException);
  if Assigned(ex) then
    // Thread terminated due to an exception
    raise ex;
  Dec(nrthd);
end;

Переменная "a" не инициализирована! Он может указывать на ЛЮБУЮ возможную ячейку памяти вашего компьютера. Он может даже указывать на местоположения, которые физически не существуют (хотя это спорно из-за системы виртуальной памяти).

Итак, в вашей программе, если «a» случайно указывает на ДЕЙСТВИТЕЛЬНЫЙ адрес памяти (я имею в виду адрес, которым владеет процесс), тогда ваш код будет записываться в это место без нарушения прав доступа. Я думаю, что вы должны по крайней мере поставить «а» на NIL.

См. комментарий Реми Лебо здесь: http://www.stackoverflow.com/a/16071764/46207
И это также: Почему неинициализированные указатели вызывают нарушения доступа к памяти close на 0?