Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.19;
Скачать: 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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.02 c
1-62049
DikobraZ
2003-12-04 22:34
2003.12.19
Какие компоненты используют в uses: Compress, CompressZli...


14-62215
Вадим
2003-11-25 23:33
2003.12.19
DrWeb утверждает, что я написал вирус


1-62094
yurez
2003-12-09 14:13
2003.12.19
Как передать в ячейку Excel текст с


1-62083
Ega23
2003-12-09 14:03
2003.12.19
Стандартные графические форматы


4-62333
Andry
2003-10-27 00:30
2003.12.19
Можно ли перехватить события