Удаление переменных из памяти

← →
catdog © (2008-03-17 11:27) [0]

Здравствуйте, товарищи.

Имеется структура, описывающая каждую ветвь в дереве (tkoltreeview):

type PData = ^TData; TData = record FName: string; ver: byte; end;

При добавлении ветви:
New(Ptr); Ptr^.FName := FileName; Ptr^.ver := 0; tree.TVItemData[item] := Ptr;

При удалении ветви:
PData(treeview1.TVItemData[Item])^.FName := ""; PData(treeview1.TVItemData[Item])^.ver := 0;

Так вот, вопрос в том, как мне уничтожать переменную FName и typeoffile вообще, из памяти? В программе дерево может обновлятся неоднократно, и память необходимо освобождать.

Спасибо

← →
catdog © (2008-03-17 13:10) [1]

черт, совсем забыл что есть zeromemory, пора завязывать с пивом:)
НО!
при таком раскладе: (когда полностью очищаю дерево)

zeromemory(addr(PData(treeview1.TVItemData[Item])^.FName),length(PData(treeview1 .TVItemData[Item])^.FName)); zeromemory(addr(PData(treeview1.TVItemData[Item])^.typeoffile),sizeof(PData(tree view1.TVItemData[Item])^.typeoffile));

ошибка при очистке строки (не обязательно первой, вылетает через несколько удаленных строк)
помогите.....

← →
mdw © (2008-03-17 13:16) [2]

Ну обычно New() используется в связке с Dispose()... А к чему zeromemory не понятно.

← →
catdog © (2008-03-17 13:38) [3]

Мда, старею я...:)

Почему не очищается память без 2-х первых строк?? Видимо я пропустил в жизни что-то:

PData(treeview1.TVItemData[Item])^.FName := ""; PData(treeview1.TVItemData[Item])^.typeoffile := 0; dispose(treeview1.TVItemData[Item]);

> Почему не очищается память без 2-х первых строк??

В смысле без:
> PData(treeview1.TVItemData[Item])^.FName := "";
> PData(treeview1.TVItemData[Item])^.typeoffile := 0;

?
Скорее без первой. Сами посмотрите. Вы распределяете память для записи, потом строковому полю присваеваете значение, т.е. распределяете память под строку. Если просто освободить запись, то память выделенная под строку не освободится, т.к. там хранится не сама строка, а грубо говоря указатель на нее. Поэтому ее нужно освободить самому (Fname:= ""). А вот typeoffile := 0; можно и не присваивать.

Удаление переменных из памяти Найти похожие ветки