exceptions в секции finally некорректно работают при включении EurekaLog

[Наталья2022]

Добрый день!

В EurekaLog ошибка или я что-то делаю не так и мой код ошибочный? Пытаюсь выполнить данный код. Без EurekaLog отображает 4 сообщения:
1919
5=1
1920
1

С EurekaLog отображает только
1919
а потом проект вылетает с ошибкой
Application made attempt to free invalid or unknown memory block

В чём может быть дело? Разве нельзя использовать вложенные обработчики исключений в секции finally?

   try
      try
         raise Exception.Create('1');
      finally
         try
            raise Exception.Create('100'); //если эту строку убрать, все норммально
         except
            on E:Exception do begin
            end;
         end;
      end;
   except
      on E:Exception do begin
         ShowMessage('1919');
         ShowMessage('5='+E.Message); //вод здесь выходит ошибка Application made attempt to free invalid or unknown memory block
         ShowMessage('1920');
         raise Exception.Create(E.Message);
      end;
   end;

[macomics]

А при чем тут исключения? Сами же сказали, что без EurekaLog все сработало.
Ищите причину ошибки в этом самом EurekaLog.

[Наталья2022]

Сообщение от macomics

А при чем тут исключения? Сами же сказали, что без EurekaLog все сработало.
Ищите причину ошибки в этом самом EurekaLog.

Дело в том, что приложение периодически отваливается на подобном коде. Примерно раз в неделю. Инструмент EurekaLog был установлен чтобы выявить возможные ошибки в программе. Ну он и выявил. Только непонятно, где тут ошибка.

[macomics]

Тогда стоит изучить эту причину ошибки подробнее. Например исследовать код более подробно и на низком уровне.

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

[northener]

Сообщение от Наталья2022

Разве нельзя использовать вложенные обработчики исключений в секции finally?

Вообще-то говоря нельзя. Как нельзя, например, разрешать детям баловаться со спичками.
Вы можете прокомментировать свой код? Для чего нужна та или иная строка?

Сообщение от macomics

Ищите причину ошибки в этом самом EurekaLog.

Не надо валить на Эврику. Она-то как раз работает нормально.

[Наталья2022]

Сообщение от northener

Вообще-то говоря нельзя. Как нельзя, например, разрешать детям баловаться со спичками.
Вы можете прокомментировать свой код? Для чего нужна та или иная строка?

try-except-end присутствует в секции finally в процедуре, которая вызывается в секции finally. И так может быть во многих местах проекта - в какой-нибудь секции finally где-нибудь вызывается процедура, в которой может присутствовать try-except-end.

Объектно-ориентированное программирование, как может быть вообще такое что приходится задумыватся, что использовать можно, а что нельзя в секции finally? Почему нельзя-то, ситуация же вроде стандартная и совершенно простая. Или не использовать вообще finally в программе, тк процедуры, которые из секции finally вызываются, могут в любое время обрасти дополнительными try-except-end и компилятор на это отреагирует совершенно нормально, даже hints и warnings не выведет.

Сам код, приведённый в примере,выдернут из проекта, а потом максимально упрощен (чтобы не размещать здесь более 1000 строк кода) - чтобы продемонстрировать глюк Delphi или как вариант, глюк EurekaLog, так как без EurekaLog-то всё вроде работает нормально ...