Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.022 c
2-1186383261
rolex2002
2007-08-06 10:54
2007.09.02
Как по дате определить знак зодиака?


2-1186399521
AlinaVK
2007-08-06 15:25
2007.09.02
constraint


3-1178790763
Godness
2007-05-10 13:52
2007.09.02
A query with LOB s requires OCI8 mode, but OCI7 mode is used


15-1186261619
Kostafey
2007-08-05 01:06
2007.09.02
С днем рождения ! 5 августа


3-1178781838
alexey_mas
2007-05-10 11:23
2007.09.02
передача процедуры в процедуре