Господа дайте КОНСУЛЬТАЦИЮ по 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]

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

Спасибо.

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