PHP DM Gate v0.9 » Удаление переменных из памяти <span class="vd">[Delphi, Windows]</span>

catdog © (17.03.08 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 © (17.03.08 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 © (17.03.08 13:16) [2]

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

<Цитата>
catdog © (17.03.08 13:38) [3]

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

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

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

<Цитата>
mdw © (17.03.08 14:22) [4]

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

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

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

<Цитата>