Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Вниз
Не опасен ли следующий код Найти похожие ветки
← →
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.
Думаю, что второе.
По сему - думаю, что не опасно.
← →
Тимохов © (2004-05-12 13:53) [2]
> Mim1 © (12.05.04 13:45)
посмотрел - не опасно.
копируется значение amethod.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.045 c
