Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > VirtualTree, удаление эл-ов

Автор: Norfonzor 13.10.2010, 09:39

при удалении эл-ов в VirtualTree необходимо удалять файлы привязанные к ним.

при удалении обрабатываю через VTFreeNode

Код


procedure TfrmMain.VTFreeNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
var z,z2:string;
max,i:integer;

NewPhone: PPhoneNode;

begin
if not (csDestroying in vt.ComponentState) then
    begin
    NewPhone := VT.GetNodeData(Node);
    if Assigned(NewPhone) then
    begin
     z:=NewPhone^.doc;
    ...

необходимо узнать все NewPhone^.doc у всех Node которые пошли под удаление.
user posted image

если я выделю завернутую папку 1 и нажму удалить то NewPhone^.doc у документов которые находятся в подкаталогах, будут пустыми ="", я узнаю имена только у тех NewPhone^.doc которые будут в каталоге 1.

как определить NewPhone^.doc всех Node под удаление????

Автор: RomanEEP 13.10.2010, 12:16

Инициализировать нод перед удалением подойдет?

Автор: Norfonzor 13.10.2010, 14:11

хм, инициализировать то есть загрузить его в память и прочесть через z:=NewPhone^.doc; ???

Автор: RomanEEP 13.10.2010, 19:31

описался, имел ввиду инициализировать детей нода

Автор: AnalogXP 13.10.2010, 23:20

Я делаю так:

Код


var data: PData;
    Nodes: TNodeArray;
    i: integer;
begin
    Nodes := vt.GetSortedSelection(true);
    for i := 0 to High(Nodes) do
    begin
        data:=vt.GetNodeData(nodes[i]);
        if assigned(data) then
            if TMBookmarks(data.Obj).folder then  //если узел является родителем (то есть папка)
            begin
                if DelDir(TMBookmarks(data.Obj).path) then //удаляем папку со всем своим содержимым
                    vt.DeleteNode(nodes[i]);
            end
            else                                                     //если узел является файлом
            begin
                if DeleteFile(TMBookmarks(data.Obj).path) then
                    vt.DeleteNode(nodes[i]);
            end;
    end;
end;

Но удаляю не в FreeNode