VPF::VirtualTree, удаление эл-ов - Форум программистов

Norfonzor

Дата 13.10.2010, 09:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 17.10.2008

Репутация: нет
Всего: нет

при удалении эл-ов в 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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 424
Регистрация: 18.5.2006
Где: Коломна

Репутация: 5
Всего: 8

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

--------------------

Электронные экзамены

Norfonzor

Дата 13.10.2010, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 17.10.2008

Репутация: нет
Всего: нет

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

RomanEEP

Дата 13.10.2010, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 424
Регистрация: 18.5.2006
Где: Коломна

Репутация: 5
Всего: 8

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

--------------------

Электронные экзамены

AnalogXP

Дата 13.10.2010, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 23.9.2007

Репутация: нет
Всего: нет

Я делаю так:

Код


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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »