Назначение свойства пириводит к уничтожению объекта

← →
Kolan © (2007-08-11 09:50) [0]

&#133наверно.

Здравствуйте,
Что-то я схожу с ума.

Вот создаю объект с пом CreateMeasurment:
function TMeasurmentsManager.Add: Integer; begin Result := inherited Add(CreateMeasurment); DoAdd(Measurments[Result], Result); end;

Вот CreateMeasurment:
function TMeasurmentsManager.CreateMeasurment: TMeasurment; begin Result := TMeasurment.Create; Result.OnChange := MeasurmentChangeEvent; end;

Если не назначать OnChange  то все ок. Если назначить, то приобращении к Measurments[Index]  AV.

Вот как объявлено OnChange:
TMeasurment = class strict private FChangeEvent: TNotifyEvent; {&#133} public {&#133} property OnChange: TNotifyEvent read FChangeEvent write FChangeEvent; end;

← →
Kolan © (2007-08-11 09:59) [1]

А потом Сергей М. меня спрашивает почему я боюсь пакеты&#133
Сделал Getter Setter для:
property OnChange: TNotifyEvent read FChangeEvent write FChangeEvent;
Сразу стало ругаться что не найдены таки функции.

Пакет скопировать забыл. :(

← →
MetalFan © (2007-08-11 10:31) [2]

что происходит в
> DoAdd(Measurments[Result], Result);

в остальном криминала не наблюдаю...

> в остальном криминала не наблюдаю&#133

Да разобрался, благодарю: «Пакет скопировать забыл» © [1] Kolan © (11.08.07 09:59)

Назначение свойства пириводит к уничтожению объекта Найти похожие ветки