Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2003.12.19;
Завантажити: [xml.tar.bz2];

Вниз

Господа дайте КОНСУЛЬТАЦІЮ по GetMem і FreeMem Знайти схожі гілки


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

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

тип
PDataDoc=^TDataDoc;
TDataDoc = packed record
Num:Integer;
Data:TDate;
New:Boolean;
Кінець;

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;
Завантажити: [xml.tar.bz2];

Вгору





Пам'ять: 0.54 MB
Час: 0.023 c
4-62311
Нараян
2003-10-27 12:25
2003.12.19
PopupMenu


1-62049
DikobraZ
2003-12-04 22:34
2003.12.19
Які компоненти використовують в uses: Compress, CompressZli ...


6-62171
] [Ncognito
2003-10-20 23:28
2003.12.19
облік трафіку


1-62094
yurez
2003-12-09 14:13
2003.12.19
Як передати в осередок Excel текст з


14-62211
Думкіна
2003-11-26 05:31
2003.12.19
З Днем народження! 26 листопада.





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська