Скачать: CL | DM;

Господа дайте КОНСУЛЬТАЦИЮ по GetMem и FreeMem   Найти похожие ветки 

← →
axx ©   (2003-12-06 10:11) [0]

Сабж. Храню в TForm.Tag указатель на рекорд

Type
PDataDoc=^TDataDoc;
TDataDoc = packed record
Num:Integer;
Data:TDate;
New:Boolean;
End;

Procedure TagWrite
GetMem(DocData,SizeOF(DocData^));
DocData^.Num:=-1;
DocData^.Data:=Now;
DocData^.New:=True;
MyForm.Tag:=LongInt(DocData);
...

Вопрос в следующем: Нужно ли делать
FreeMem(PdataDoc(Tag),SizeOf(PDataDoc^));
в обработчике MyForm.OnClose или при уничтожении формы уничтожаются все что с ней связано.
Понимаю вопрос глупый. Просто интересно.

---

← →
Владислав ©   (2003-12-06 10:40) [1]

Конечно нужно. Практически всегда работает правило, сам выделил память, сам и освобождай.

---

← →
axx ©   (2003-12-06 10:54) [2]

Спасибо.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c