| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

О порядке деструкции объектов которые создаются автоматически [D6, 2000, XP]

SergP. ©   (2006-07-06 20:49:00) 

Имеется TListView и TPageControl
Вкладки на последнем создаются наследниками нижеприведенного класса:


type TBaseSheet = class(TTabSheet)
  public
    Query:TAdoQuery;
    IspEnabled:boolean;
    Data:pointer; // Поле для хранения указателей на связанные объекты
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure ExportToExcel(WorkSheet:variant); virtual; abstract;
    function GetCount:integer; virtual; abstract;
  end;
// Классы создаваемых вкладок наследуются от этого

...

destructor TBaseSheet.Destroy;
begin
 Query.Close;
 Query.Free;
 TListItem(Data).Data:=nil; // тут возникает проблема
 inherited;
end;


При создании вкладки, указатель на нее сохраняется в TListItem.data, и соответственно указатель на TListItem сохраняется в TBaseSheet.data
Возникла проблема, проявляющая себя в возникновении AV  при закрытии программы.
Как выяснилось проблема из-за того что при закрытии приложения TlistView уничтожается раньше чем TPageControl, и при уничтожении TPageControl (вернее его "дочерних" объектов). Строка где происходит AV указана выше (в деструкторе вушеприведенного класса).
Как избежать данной неприятной ситуации?
Т.е. как сделать чтобы TPageControl уничтожался ранее TListView'а?

Пока віхожу их ситуации уничтожением TPageControl в OnClose формы.

---

ЮЮ   (2006-07-07 04:01:00) [1]

1) У ListView есть событие OnDeletion, где лучше всего и уничтожать объекты из Data
2)  если в Data лишь указатель на связанный объект, уничтожение которого не входит в обязанности TBaseSheet, то зачем обnilять эту ссылку?

---

Leonid Troyanovsky   (2006-07-06 23:14:00) [2]

> SergP.   (06.07.06 23:11) [4]

> Поподробнее где можно почитать?


Delphi help: TComponent.Notification ?

--
Regards, LVT.

---

SergP.   (2006-07-06 23:11:00) [3]

> При хранении ссылок необходимо
> procedure Notification(AComponent: TComponent; Operation:
>  TOperation); override;


Поподробнее где можно почитать?

---

Leonid Troyanovsky   (2006-07-06 21:16:00) [4]

> SergP.   (06.07.06 21:12) [2]

> У меня как-бы связаны объекты TListItem и TTabSheet взаимным
> хранением указателей друг на друга.


При хранении ссылок необходимо
procedure Notification(AComponent: TComponent; Operation: TOperation); override;

--
Regards, LVT.

---

SergP.   (2006-07-06 21:12:00) [5]

> Здесь неплохо бы, хотя бы, намекнуть на сермяжный
> смысл оного (проблемного) деяния.


У меня как-бы связаны объекты TListItem и TTabSheet взаимным хранением указателей друг на друга.

А смысл в том чтобы в соответствующем TListItem убрать указатель на нашу вкладку если мы ее хотим закрыть. Это все работает нормально. Проблема только возникает при закрытии приложения.

---

Leonid Troyanovsky   (2006-07-06 21:01:00) [6]

> SergP.   (06.07.06 20:49)  

>  TListItem(Data).Data:=nil; // тут возникает проблема


Здесь неплохо бы, хотя бы, намекнуть на сермяжный
смысл оного (проблемного) деяния.

Плз, без заумствований, бо, практически, конец недели.

--
Regards, LVT.

---

Наверх