Текущий архив: 2007.09.02;
Скачать: CL | DM;

Вниз

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

← →
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);

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

---

← →
Kolan ©   (2007-08-11 10:47) [3]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.09.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c