Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Вниз
Сборщик мусора в памяти ? Найти похожие ветки
← →
Dimedrol (2002-03-27 14:12) [3]2 Alx2 - Спасибо, ща погоняю...
В коде я населяю TreeView на основании
массива поинтеров, указывающх на record
с разными значениями конечно...
А вообще вот проблемный код :
-----------------------------
procedure TMacForm.AddChildToGroup(m:word);
var i,j:word;
Vals,SecList:TStringList;
sBuf,select:string;
CNode:TTreeNode;
TmpMac:PMacro;
begin
try
try
//New(TmpMac);
//GetMem(TmpMac, SizeOf(TmpMac));
И вне цикла создавал...
for i:=0 to ScTree.Items.Count-1 do
begin
if ScTree.Items[i].Data<>nil then
begin
GetMem(TmpMac, SizeOf(TmpMac));
И внутри тоже - 1 хрен ! ;-(
TmpMac:=ScTree.Items[i].Data;
if TmpMac^.id=MacList[m]^.parid then
^^^^^^^^^^^^^^^^^
ВО! тут самое главное.
Мне этот поинтер-то нужен
просто 2 значения полей сравнить...
begin
CNode:=ScTree.Items.AddChild(ScTree.Items[i], ShortCutToText(MacList[m]^.HotKey));
CNode.ImageIndex:=1;
CNode.SelectedIndex:=1;
CNode.Data:=MacList[m];
//Dispose(TmpMac);
FreeMem(TmpMac, SizeOf(TmpMac));
exit;
end;
FreeMem(TmpMac, SizeOf(TmpMac));
//Dispose(TmpMac);
Тут пытался освободить...
end;
end;
except
on E:Exception do
begin
MessageDlg("App returned error: "+#10+#13+E.Message,mtWarning,[mbOK],0);
exit;
Как пытаюсь освободить - 1 раз проходит !!!
а потом вот тут все время вываливаюсь... ;-(
end;
end;
finally
//Dispose(TmpMac);
//FreeMem(TmpMac, SizeOf(TmpMac));
И тут тоже - пофигу...
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c
