Текущий архив: 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.015 c
