Не опасен ли следующий код

← →
Mim1 © (2004-05-12 13:45) [0]

В программе применяю такой код, и думаю не опасно ли это (?), ведь переменная amethod локальная и ее память освобождается сразу после выхода из процедуры.

procedure CkgExceptionHandler(ASelf, Sender: TObject ; E: Exception); begin DoError(e); end; Procedure CkgErrorInit; var amethod: TMethod; begin amethod.Code := @CkgExceptionHandler; amethod.Data := Application; Application.OnException := TExceptionEvent(amethod); end;

← →
Тимохов © (2004-05-12 13:49) [1]

> Mim1 © (12.05.04 13:45)

на пямять не помню - надо асм смотреть.
Посмотрите сами что происходит при присвоении Application.OnException := TExceptionEvent(amethod) - в Application.OnException устанавливается адрес amethod или копируется значение amethod.
Думаю, что второе.
По сему - думаю, что не опасно.

Не опасен ли следующий код Найти похожие ветки