[РЕШЕНО] Обращение к исключению за пределами Try Except

[Brainenjii]

Пишу код:

Код: Выделить всё

program Project1;
uses
  sysutils;
Var
  aException: Exception;
begin
  aException := nil;
  Try
    Raise Exception.Create('Hello world');
  Except On E: Exception Do
    Begin
      aException := E;
      WriteLn('Message: ', aException.Message);
    End;
  End;
  WriteLn('Message: ', aException.Message);
end.

Возвращает:

~> /tmp/project1
Message: Hello world
Message:

Вопрос: куда пропадает Message? ^_^

[Sergei I. Gorelkin]

Объект исключения уничтожается при выходе из блока except. Если таки хочется его использовать после, то надо внутри блока except вызывать AcquireExceptionObject, а после пользования - Free.

[Brainenjii]

Спасибо.
Но почему не поднимается Access Violation при обращении к уничтоженному объекту?

[Sergei I. Gorelkin]

Менеджер памяти не отдает освобожденную память системе сразу же (в предположении, что она снова понадобится кому-то еще), поэтому память остается доступной.