freepascal.ru

Встал вопрос, что будет если идет такая ситуация. Этап первый - создаются классы и у всех в один список собираем адреса процедур оповещения их о каком то изменении.
Этап второй - Всем элементам списка рассылается сообщение о изменении.
Вопрос в следующем, если кто то из них уже уничтожен, что будет с ним, при попытке его вызова? Свою программу я через проверну защитить смогу, но не нарушит ли это что то другое что будет находится где раньше была процедура?

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

TMyClass=class
public
procedure ChangeEvent(Sender:TObject);
end;


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

***
var
ListEvent:TList;
****
var
Item:TMyClass;
begin

Item:=TMyClass.create;
ListEvent.add(addr(item.ChangeEvent));
item.free;
end;



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

for i:=0 to ListEvent.Count-1 do
begin
try
EventProcedure:=Items[i];
EventProcedure(self); //go
except
//что будет с новыми данными в случае возникновения этой ситуации
end;
end;


Открою маленький секрет: все экземпляры TMyClass будут иметь один и тот же адрес ChangeEvent при показанных выше объявлениях, если правильно путаю. Экземпляры класса отличаются данными, но имеют общий код. С каким классом работает код, определяет неявный параметр Self. Вот только тот Self -- это данные того экземпляра TMyClass, а не self непонятно какого вызывающего класса на момент вызова.

bormant писал(а):Открою маленький секрет: все экземпляры TMyClass будут иметь один и тот же адрес ChangeEvent при показанных выше объявлениях, если правильно путаю. Экземпляры класса отличаются данными, но имеют общий код. С каким классом работает код, определяет неявный параметр Self. Вот только тот Self -- это данные того экземпляра TMyClass, а не self непонятно какого вызывающего класса на момент вызова.

Согласен, неправильно пример привел. Насколько помню только объявления protected имеют разные копии.

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

TMyClass=class
private
FOnChangeEvent:TNotifyEvent; // В зависимости от экземпляра класса, будет свой обработчик. К примеру у каждой формы свой класс и обработчик.
public
property OnChangeEvent:TNotifyEvent .....
end;


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

***
var
ListEvent:TList;
****
var
Item:TMyClass;
begin

Item:=TMyClass.create;
....
ListEvent.add(addr(item.OnChangeEvent));
item.free;
end;



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

procedure TForm1.Button1Click(Sender: TObject);
var
   i:integer;
   P:Pointer;
   EventProcedure:TNotifyEvent;
   M: TMethod;
begin
  for i := 0 to ListEvent.Count - 1 do
  begin
    P:=(ListEvent.Items[i]);
    M.Code := P;
    M.Data := nil; //self объекта-обработчика равен nil
    EventProcedure:=TNotifyEvent(M);
    try
       if Assigned(EventProcedure)then
        EventProcedure(Self); // В качестве Self передаем виновника возникновения событий
    except
        // Не происходит
    end;
  end;
end;


Проверил наконец, с доделками. Недостаток - без {$mode delphi} не работает. Except как раз и не вылетает из-за того, что сама функция не создается заново, а используется классами в едином виде как написана и кто к ней обращается. Второй параметр сохранять надо.
Спасибо в общем, докопался с подсказками до того, что там происходит.